CODE VS 天梯 均分纸牌

题目：

有 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）。

分析：

水贪心，一开始先求整个平均值，然后从左往右搜一遍，如果有不够的就从右边拿，顺便inc次数，如果超过就给右边，也inc次数。

附上代码：

const
  maxn=1000;


var
  a:array [1..maxn] of longint;
  n,ans:longint;


procedure init;
var
  i,j,k:longint;
begin
  readln(n);
  for i:=1 to n do
    begin
      read(a[i]);
      inc(k,a[i]);
    end;
  j:=k div n;
  for i:=1 to n do
   dec(a[i],j);
end;


procedure work(dep:longint);
begin
  if dep=n then
    exit;
  if a[dep]<>0 then
    begin
      inc(a[dep+1],a[dep]);
      a[dep]:=0;
      inc(ans);
      work(dep+1);
    end;
  if a[dep]=0 then
    work(dep+1);
end;


begin
  init;
  work(1);
  writeln(ans);
end.