洛谷 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.