毕业生开玩笑 2012-07-18 18:58:00
点我顶贴
收藏
删除
var a:array[1..100] of longint;
n,i:shortint;
pj:longint;
js:integer;
begin
readln(n);
for i:=1 to n do begin
read(a[i]);
pj:=pj+a[i];
end;
pj:=pj div n;
for i:=1 to n-1 do begin
if a[i]<pj then begin
a[i+1]:=a[i+1]-pj+a[i];
inc(js);
end;
if a[i]>pj then begin
a[i+1]:=a[i+1]-pj+a[i];
inc(js);
end;
end;
writeln(js);
end.