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.

肿么了？

要我干毛

当然错了， 看你的前几行，那个 s div n=0啊；；；；；；；

62[悬赏:1分]

program rq64;