求给定序列的最大连续子序列和。
输入：第一行：n（n<100000）
第二行：n个整数[-3000，3000]。
输出：最大连续子序列的和。
样例：
输入：
7
-6 4 -1 3 2 -3 2
输出：
8
var a:array[..] of longint;
f:array[..] of longint;
n,i,j,ans:longint;
function max(x,y:longint):longint;
begin
if x>y then exit(x) else exit(y);
end;
begin
readln(n);
fillchar(f,sizeof(f),);
for i:= to n do read(a[i]);
f[]:=a[];
for i:= to n do
begin
f[i]:=max(f[i-]+a[i],a[i]);
end;
ans:=;
for i:= to n do
if f[i]>ans then ans:=f[i];
writeln(ans);
end.