最大连续数列的和

最大连续数列的和

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

Description

　求最大连续子序列的和

Input

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

Output

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

Sample Input

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.