[rqnoj145]打水漂

题目描述：

君不知，打靶大牛goleenuoer可喜欢打水漂了，他的靶子可以打到河面上的任何一条鱼,可是他的水漂打得实在是烂,无论怎么打那石子只会在河面上跳跃两次就“扑通”了.这天他又来打了.这条宽w米,每隔一米都会有一条鱼,每条鱼都有它的美观值.他想知道如何打才能得到两条鱼之间最大的美观值总和.刚接触OI的他想请您来解答,您能帮助他吗???

输入格式

输入文件包含n+1个整数,第一行为一个整数n(n<=10000).从第二行工n个数,第i个整数表示第i条鱼的美观值范(围为-500..500).当所有整数都为负数时输出0.

输出格式

输出文件包含两行,第一行为石子的起点和落点,用空格隔开.第二行为一个整数表示所得到的两条鱼之间美观值总和.

样例输入

10
5 8 -5 -10 5 1 -3 2 4 2

样例输出

0 2
13

最大子段和

var
 x:array[0..10000]of longint;
 dp:array[0..10000,0..1]of longint;
 i,n,max,t:longint;
begin
 readln(n);
 for i:=1 to n do
  read(x[i]);
 dp[1,0]:=1; dp[1,1]:=x[1];
 for i:=2 to n do
  if dp[i-1,1]+x[i]>x[i]
  then begin dp[i,1]:=dp[i-1,1]+x[i]; dp[i,0]:=dp[i-1,0]; end
  else begin dp[i,1]:=x[i]; dp[i,0]:=i; end;
 max:=0;
 for i:=1 to n do
  if dp[i,1]>max
  then begin max:=dp[i,1]; t:=i; end;
 if max=0
 then writeln(0)
 else
  begin
   writeln(dp[t,0],' ',t);
   writeln(dp[t,1]);
  end;
end.

枚举前缀和

var
 s,x:array[0..10000]of longint;
 i,j,ans,a,b,n:longint;
begin
 readln(n);
 for i:=1 to n do
  begin
   read(x[i]);
   s[i]:=s[i-1]+x[i];
  end;
 ans:=0; a:=0; b:=0;
 for i:=1 to n do
  for j:=i+1 to n do
   if s[j]-s[i-1]>ans
   then begin ans:=s[j]-s[i-1]; a:=i; b:=j; end;
 if ans=0
 then writeln(0)
 else
  begin
   writeln(a,' ',b);
   writeln(ans);
  end;
end.