均分纸牌

var
n,i,s,j,ans:longint;
a:array[0..1000] of longint;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
s:=s div n;
for i:=1 to n do a[i]:=a[i]-s;
i:=1;
j:=n;
while (a[i]=0)and(i<n)do inc(i);
while (a[j]=0)and(j>1) do dec(j);
while i<j do
begin
a[i+1]:=a[i+1]+a[i];
a[i]:=0;
while (a[i]=0)and(i<n) do inc(i);
inc(ans);
end;
writeln(ans);
end.