var n,i,d,num,j:longint; a:array[0..100000] of longint;
begin
readln(n);
a[0]:=0;
for i:=1 to n do
begin
read(num);
a[i]:=a[i-1]+num;
end;
d:=0;
for i:=1 to n do
for j:=0 to i-1 do
if ((a[i]-a[j]) <>0) and ((a[i]-a[j]) mod n =0) then inc(d);
write(d);
end.