马宇浩 2013-08-03 00:29:00
点我顶贴
收藏
删除
program rq64;
var i,t,s,n:integer;
a:array[1..10000] of integer;
begin
readln(n);
for i:=1 to n do
begin read(a[i]);
s:=s div n;
end;
for i:=1 to n-1 do
begin
if a[i]<>s then
begin
a[i+1]:=a[i+1]+a[i]-s;
t:=t+1;
end;
end;
writeln(t);
end.