var n,max,s:longint;
    f,a,mi:array[0..2000000]  of longint;
procedure nhap;
var i:longint;
begin
        read(n);
        for i:=1 to n do
                read(a[i]);
end;
procedure tinh_f;
var i:longint;
begin
        f[0]:=0;
        for i:=1 to n do
                f[i]:=f[i-1]+a[i];
end;
procedure tinh_mi;
var i:longint;
begin
        mi[0]:=0;
        for i:=1 to n do
        begin
                mi[i]:=mi[i-1];
                if f[mi[i]]>f[i] then mi[i]:=i;
        end;
end;
procedure giai;
var j:longint;
begin
        max:=0;
        for j:=1 to n do
        begin
                s:=f[j]-f[mi[j-1]];
                if s>max then
                        max:=s;
        end;
        write(max);
end;
begin
        nhap;
        tinh_f;
        tinh_mi;
        giai;
end.