最大连续数列的和-SSL 1461

Description

　求最大连续子序列的和

Input

　第一行输入n(n<=500),第二行为n个以空格分开的整数(-1000到1000之间)；

Output

　　该序列中最大的连续子序列的和

Sample Input


　６
　　1 2 -5 6 7 8
Sample Output


　　21

题解：这道题用动态规划。
 if t>a[i-1]+t then a[i]:=t else a[i]:=a[i-1]+t;

var a:array[-1..1000] of longint;
    max,n,t,i:longint;
begin
  readln(n);
  for i:=1 to n do
  begin
    read(t);
    if t>a[i-1]+t then a[i]:=t else a[i]:=a[i-1]+t;
  end;
  for i:=1 to n do
  if a[i]>max then max:=a[i];
  writeln(max);
end.