var a:array[1..1000000]of longint；

n,k,i,j:longint；

ans,temp,sum,max,min:int64；

t:boolean；

begin

readln(n)；

t:=false；

max:=-maxlongint；

for i:=1 to n do

begin

read(a[i])；

if a[i]>0 then t:=true；

if a[i]>max then max:=a[i]；

end；

if t=false then begin writeln(max)； halt； end；

sum:=0；

max:=0；

for i:=1 to n do

begin

inc(temp,a[i])；

inc(sum,a[i])；

if sum<0 then sum:=0；

if sum>max then max:=sum；

end；

sum:=0；

min:=0；

for i:=1 to n do

begin

inc(sum,-a[i])；

if sum<0 then sum:=0；

if sum>min then min:=sum；

end；

if temp+min>max then max:=temp+min；

writeln(max)；

end.

害我改了好久~

我同学的程序借我发上去,他原来AC的,可现在就有3个点超时.我无奈~~