最大连续数列的和

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.