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.