Description
求最大连续子序列的和
Input
第一行输入n(n<=500),第二行为n个以空格分开的整数(-1000到1000之间);
Output
该序列中最大的连续子序列的和
Sample Input
6
1 2 -5 6 7 8
Sample Output
21
var
i,n,m,k,g:longint;
begin
readln(n);
read(g);
for i:=2 to n do
begin
read(k);
if g>0 then inc(k,g);
if k>m then m:=k;
g:=k;
end;
writeln(m);
end.