danghuaiyu 2013-10-14 22:33:00
点我顶贴
收藏
删除
哪位大神帮我看一下错哪了，为啥只有80分
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.
#2 b419334269@2013-12-08 21:29:36
32443
回复
删除
for i:=1 to n do
begin
read(a[i]);
sum:=sum+a[i];
p:=sum div n;{这句放循环体外}
end;