n = gets.to_i
a = gets.split.map(&:to_i)
r = Array.new(n + 1, 0)
1.upto(n) do |i|
  r[i] = r[i - 1] + a[i - 1]
end
cnt = 0
0.upto(n) do |i|
  i.next.upto(n) do |j|
    cnt += 1 if r[i] - r[j] == 0
  end
end
puts cnt