n = gets.to_i
while n != 0 do
	max = -999999
	a = Array.new(n,0)
	n.times do |i|#input data
		a[i] = gets.to_i
		max = a[i] if a[i] > max
	end

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