余可2代 2012-10-24 20:49:00
点我顶贴
收藏
删除
var
a:array[1..100] of integer;
n,x,i,k:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
inc(x,a[i]);
end;
x:=x div n;
for i:=1 to n-1 do
begin
if a[i]<>x then
begin
inc(k);
if a[i]<x then
begin
a[i+1]:=a[i+1]-(x-a[i]);
a[i]:=x;
end
else
begin
a[i+1]:=a[i+1]+(a[i]-x);
a[i]:=x;
end;
end;
end;
writeln(k);
end.
哪错了