varn,i,s,j,ans:longint;a:array[0..1000] of longint;beginreadln(n);for i:=1 to n dobeginread(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 dobegina[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.
