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.
转载请注明原文地址: https://ju.6miu.com/read-4362.html
