您的位置：首页 > 其它

最大连续数列的和

2017-03-08 16:48 225 查看
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.
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 点击这里给我发消息
标签： 
相关文章推荐
新的分享
章节导航