洛谷 1115——最大子段和(线性数据结构)
题目描述
给出一段序列,选出其中连续且非空的一段使得这段和最大。
输入输出格式
输入格式:
输入文件maxsum1.in的第一行是一个正整数N,表示了序列的长度。
第2行包含N个绝对值不大于10000的整数A[i],描述了这段序列。
输出格式:
输入文件maxsum1.out仅包括1个整数,为最大的子段和是多少。子段的最小长度为1。
输入输出样例
输入样例#1:
7
2 -4 3 -1 2 -4 3
输出样例#1:
4
说明
【样例说明】2 -4 3 -1 2 -4 3
【数据规模与约定】
对于40%的数据,有N ≤ 2000。
对于100%的数据,有N ≤ 200000。
一重循环,设f[i]为加到第i个数的最大值。
dp式为f[i]:=max(f[i-1]+a[i],a[i]);
代码如下:
uses math;
var
f:array[0..200000]of longint;
a:array[0..200000]of longint;
i,j,n,maxx:longint;
begin
readln(n);
maxx:=-maxlongint;
for i:=1 to n do read(a[i]);
f[0]:=0;
for i:=1 to n do
begin
f[i]:=max(f[i-1]+a[i],a[i]);
if f[i]>maxx then maxx:=f[i];
end;
writeln(maxx);
end.