hfyzndl 2013-11-06 07:19:28
点我顶贴
收藏
删除
var a:array[1..10000] of longint;
i,j,k,l,m,n:longint;
b:array[1..10000,1..10000] of longint;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then inc(j);
end;
if (j=n) or (n<0) then begin writeln(0);halt end;
m:=-maxlongint;
for i:=1 to n-1 do
b[i,i]:=a[i];
for i:=1 to n-1 do
for j:=i+1 to n do
begin
b[i,j]:=b[i,j-1]+a[j];
if b[i,j]>m then begin m:=b[i,j];k:=i;l:=j end;
end;
writeln(k,' ',l);
writeln(m);
end.