5 条评论
-
贱人在我右边 LV 9 @ 2016-09-06 16:22:03
3
-
@ 2016-09-06 16:21:53
呵呵‘
-
@ 2016-06-30 15:00:54
傻不傻
-
@ 2015-07-27 22:51:21
这题只有50分。呵呵。
-
@ 2014-07-22 14:12:24
AC代码：
var
n,i,ans,pj,temp:longint;
a:array[1..100000]of longint;
begin
read(n); pj:=0;temp:=0; ans:=0;
for i:=1 to n do
begin
read(a[i]);
inc(pj,a[i]);
end;
pj:=pj div n;for i:=1 to n do
begin
if temp<>0 then
begin
a[i]:=a[i]+temp;
inc(ans);
end;
temp:=a[i]-pj ;
end;
writeln(ans);
end.
- 1
