program lol(input,output);  
var a:array[1..1000000]of integer;var  b:array[1..1000000]of integer;var c:array[1..1000000] of integer; var max2,max1, v, sum1, sum, max, d, f, h, l, j, n,x,i:integer;  
   
  
  
begin  
  readln(n);  
 for i:=1 to n do  
  begin  
   read(x);  
   a[i]:=x;  
    if (i=1) then  
    begin  
     b[i]:=a[i];  
     sum1:=a[i]  
    end   
    else  
     begin  
    sum1:=sum1+a[i];  
     b[i]:=sum1  
     end  
   end;  
   max1:=b[1];  
  l:=1;
   for j:=1 to (n) do  
     if (max1<b[j])then  
     begin  
   l:=j;  
   max1:=b[j]  
   end;  
       
        
       
       
       
  
  
      
      
       
     c[1]:=a[l];  
     sum:=a[l];  
     f:=l;  
     v:=l;  
      
      
      
       
      
       
       
    for h:=2 to  v  do   
     begin  
      sum:=sum+a[f-1];  
      c[h]:=sum;  
      f:=f-1  
     end; 
 max2:=c[1];
 
      for d:=1 to v do  
       if max2<c[d] then  
        max2:=c[d];  
         
          
      writeln(max2)  
     end.