n = gets.to_i
while n != 0 do
	max = 0
	a = Array.new(n,0)
	n.times do |i|
		a[i] = gets.to_i
	end

	n.times do |i|
		ans = 0
		(n-i).times do |j|
			ans = a[j+i] + ans
			max = ans if max < ans 
		end
	end
	puts max
	n = gets.to_i
end