Noip 均分纸牌题解：

有 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
4
9 8 17 6
output
3
题目很简单，就是求最少的移动次数，用贪心即可AC。
下面给出代码：
var
a,b:array[1..10000]of longint;
n,i,ans,w,s1,s2,max:longint;
bz:boolean;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
s1:=s1+a[i];
s2:=s1 div n;//s2用来存平均值
for i:=1 to n do
b[i]:=a[i]-s2;//b数组用来存每队牌与平均牌数的差
while bz<>true do
begin
for i:=1 to n do
begin
if b[i]=0 then
bz:=true
else
begin
bz:=false;
break;
end;
end;
if bz then
break;//如果达到目标则退出
for i:=1 to n do
begin
if b[i]<>0 then
begin
w:=i;
break;
end;
end;
max:=b[w];
b[w]:=0;
b[w+1]:=b[w+1]+max;
ans:=ans+1;//步数+1
end;
writeln(ans);//心善作者打的输出
end.