洛谷 P1115 最大子段和

洛谷 P1115 最大子段和

---

题目

题目描述

给出一段序列，选出其中连续且非空的一段使得这段和最大。

输入输出格式

输入格式：
输入文件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。

---

题解

前缀和

注意：子段最小长度为1

---

代码（Pascal）

var n,i,sum,minx,ans,x:longint;
 function min(x,y:longint):longint;
  begin
    if x<y then exit(x) else exit(y);
   end;
 function max(x,y:longint):longint;
  begin
    if x>y then exit(x) else exit(y);
   end;
 begin
   readln(n);
   minx:=0;sum:=0;ans:=-maxlongint;
   for i:=1 to n do
    begin
      read(x);
      sum:=sum+x;
      ans:=max(ans,sum-minx);
      minx:=min(sum,minx);
     end;
    writeln(ans);
  end.