最大连续数列的和

题意

求最大连续子序列的和

分析

如果读入的数不是负数的话，那a[i]:=a[i]+a[i-1];

结果=max

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