最大连续数列的和
Time Limit:1000MS Memory Limit:65536K
Total Submit:142 Accepted:83
Description
求最大连续子序列的和
Input
第一行输入n(n<=500),第二行为n个以空格分开的整数(-1000到1000之间);
Output
该序列中最大的连续子序列的和
Sample Input
6
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.