# coding: utf-8

class MaxSumSeq
  def solve
    loop do
      n = gets.chomp.to_i
      break if n == 0

      candidates = []
      array = read(n)
      len = array.length
      (0..len-1).each do |i|
        (i..len-1).each do |j|
          sum = 0
          (i..j).each do |k|
            sum += array[k]
          end
          candidates << sum
        end
      end
      max = find_max(candidates)
      puts max
    end
  end

  def find_max(array)
    max = nil
    array.each do |i|
      if max == nil || max < i then
        max = i
      end
    end
    max
  end

  def read(n)
    array = []
    previous = 0
    current = 0
    n.times do |i|
      current = gets.chomp.to_i

      if previous == 0 ||
        (previous < 0 && current < 0) ||
        (previous > 0 && current > 0) then
        previous += current
      else
        array << previous
        previous = current
      end
      if i == n - 1 then
        array << previous
      end
    end
    array
  end
end

MaxSumSeq.new.solve