(ssl1461)最大连续数列的和

最大连续数列的和
Time Limit:1000MS  Memory Limit:65536K

Total Submit:142 Accepted:83
Description
　求最大连续子序列的和
Input
　第一行输入n(n<=500),第二行为n个以空格分开的整数(-1000到1000之间)；
Output
　　该序列中最大的连续子序列的和
Sample Input

　６
　　1 2 -5 6 7 8

Sample Output

　　21

Source
elba

var
f:array[0..1000]of longint;
n,m,i,j,ans:longint;
function max(a,b:longint):longint;//状态转移方程
begin
if a>b then exit(a);
exit(b);
end;
begin
read(n);
for i:=1 to n do
begin
read(m);
f[i]:=max(f[i-1]+m,m);//f[i-1]为的是连续（代表上一个数）
end;
for i:=1 to n do
if f[i]>ans then ans:=f[i];//打擂台
writeln(ans);
end.