讨论 / 62
马宇浩 2013-08-03 15: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.

#1 dev-cpp@2013-05-18 16:42:00
回复 删除
肿么了?

要我干毛

#2 贾垒铭@2013-07-30 13:24:00
回复 删除
当然错了, 看你的前几行,那个 s div n=0啊;;;;;;;
#3 absi2011@2013-08-03 15:29:00
回复 删除
62[悬赏:1分]

program rq64;

查看更多回复
提交回复