(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.