lyyztt67 2008-10-21 08:14:00
点我顶贴
收藏
删除
program zqicc;
var a,g:array[1..10000]of integer; f:array[1..10000]of longint;
i,j,n,ed,st:integer; ans:longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
ans:=0;
f[1]:=a[1]; g[1]:=1;
st:=1; ed:=1;
for i:=2 to n do
begin
if f[i-1]>0 then
begin
f[i]:=f[i-1]+a[i];
g[i]:=g[i-1];
end
else
begin
f[i]:=a[i];
g[i]:=i;
end;
if ans<f[i] then
begin
ans:=f[i];
st:=g[i]; ed:=i;
end;
end;
writeln(st,’ ’,ed);
writeln(ans);
end.