最大连续数列的和

最大连续数列的和

Time Limit:1000MS  Memory Limit:65536K
Total Submit:144 Accepted:84

Description

　求最大连续子序列的和

Input

　第一行输入n(n<=500),第二行为n个以空格分开的整数(-1000到1000之间)；

Output

　　该序列中最大的连续子序列的和

Sample Input

　６
　　1 2 -5 6 7 8

Sample Output

　　21

var
 a,b:array[0..10000]of longint;
 n,max,i,j:longint;
begin
 read(n);
 for i:=1 to n do read(a[i]);
 for i:=1 to n do
  begin
   if a[i]+b[i-1]>0 then b[i]:=a[i]+b[i-1];
   if b[i]>max then max:=b[i-1]+a[i];
  end;
 writeln(max);
end.