codevs 均分紙牌 1098

題目描述 Description
有 N 堆紙牌，編號分別爲 1，2，…, N。每堆上有若干張，但紙牌總數必爲 N 的倍數。可以在任一堆上取若於張紙牌，然後移動。
　　移牌規則爲：在編號爲 1 堆上取的紙牌，只能移到編號爲 2 的堆上；在編號爲 N 的堆上取的紙牌，只能移到編號爲 N-1 的堆上；其他堆上取的紙牌，可以移到相鄰左邊或右邊的堆上。
　　現在要求找出一種移動方法，用最少的移動次數使每堆上紙牌數都一樣多。
　　例如 N=4，4 堆紙牌數分別爲：
　　①　9　②　8　③　17　④　6
　　移動3次可達到目的：
　　從 ③ 取 4 張牌放到 ④ （9 8 13 10） -> 從 ③ 取 3 張牌放到 ②（9 11 10 10）-> 從 ② 取 1 張牌放到①（10 10 10 10）。


輸入描述 Input Description
        第一行N（N 堆紙牌，1 <= N <= 100）
第二行A1 A2 … An （N 堆紙牌，每堆紙牌初始數，l<= Ai <=10000）


輸出描述 Output Description
        所有有堆均達到相等時的最少移動次數。‘


樣例輸入 Sample Input
4
9 8 17 6


樣例輸出 Sample Output

3

代碼：

var
  n,ans,i,k:longint;
  a:array[1..500]of longint;
begin
  read(n);
  for i:=1 to n do
    begin
      read(a[i]);
      k:=k+a[i];
    end;
  k:=k div n ;
  for i:=1 to n do
    if a[i]-k<>0 then
      begin
        a[i+1]:=a[i+1]+a[i]-k;
        inc(ans);
      end;
  writeln(ans);
end.