uses crt;
var n,i,k,t:integer;
    a:array[1..100] of integer;
    b:array[-100..100] of integer;
begin
  clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(A[i]);
end;
for i:=-100 to 100 do
b[i]:=0;
b[0]:=1;
t:=0;k:=0;
for i:=1 to n do
begin
t:=t+a[i];
k:=k+b[t];
b[t]:=b[t]+1;
end;
write('So luong doan con lien tiep co tong bang 0 la: ',k);
readln
end.

uses crt;
var 
    arr: array[0..100000] of longint;
    pfs: array[0..100000] of int64; 
    i, n, cnt: longint;
    ans: int64;

procedure sort(var a: array of int64; l, r: longint);
var 
    i, j: longint;
    x, t: int64;
begin
    i:=l; j:=r; x:=a[(l + r) shr 1];
    repeat
        while a[i] < x do inc(i);
        while x < a[j] do dec(j);
        
        if i <= j then begin
            t:=a[i]; a[i]:=a[j]; a[j]:=t;
            inc(i); dec(j);
        end;
    until i > j;
    if i < r then sort(a, i, r);
    if l < j then sort(a, l, j);
end;
    
begin
    clrscr;
    readln(n);
    
    for i:=1 to n do begin
        read(arr[i]);
        pfs[i]:=pfs[i - 1] + arr[i];
    end;
    sort(pfs, 0, n);
    
    cnt:=0; ans:=0;
    // write(pfs[0], ' ');
    for i:=1 to n do begin
        // write(pfs[i], ' ');
        if pfs[i] = pfs[i - 1] then inc(cnt) else cnt:=0;
        inc(ans, cnt);
    end;
    writeln(ans);
    
readln
end.