87 Zhukov

var i, n, a, ans, sum:integer;

begin
    read(n);

    read(a);
    sum:=a;
    ans:=-1000000;
    if(sum>ans) then
        ans:=sum;

    for i:=1 to n-1 do begin
        read(a);
        if(a>ans) then
            ans:=a;

        if(sum<0) then
            sum:=a
        else
            sum+=a;

        if(sum>ans) then
            ans:=sum;
    end;

    write(ans);
end.