/VDSEQ01 - Trò chơi với dãy số

              Uses Crt;
        Var n,i,c:longint; max,kq:int64; 
        Begin
            readln(n);
            for i:=1 to n do
             begin
                 readln(c);
                 kq:=kq+c;
                 if kq>max then max:=kq;
                 if kq<0 then kq:=0;
             end;
        
            writeln(max);
            readln;
        End.