danghuaiyu 2013-10-15 22:34:00
点我顶贴
收藏
删除
var
sum,n,p,m,i:integer;
a:array[1..10000] of integer;
begin
readln(n);
m:=0;
sum:=0;
for i:=1 to n do
begin
read(a[i]);
sum:=sum+a[i];
p:=sum div n;
end;
for i:=1 to n do
if a[i]<>p then
begin
a[i+1]:=a[i+1]+a[i]-p;
inc(m);
end;
writeln(m);
end.