var f,g:text;
    n,i,smax,s,j:longint;
    a:array[1..6000000]of longint;
begin
assign(f,'ssm.in');reset(f);
assign(g,'ssm.out');rewrite(g);
readln(f,n);
for i:=1 to n do
    read(f,a[i]);
for i:=1 to n do
    begin
    s:=a[i];
    for j:=i+1 to n do
        begin
        if s>smax then smax:=s;
        s:=s+a[j];
        end;
    end;
writeln(g,smax);
close(g);
end.