Program p1;
var s : array[0..6000000] of longint;
    n,a,imin,imax,smin,smax : longint;


Function max(a,b : longint) : longint;
begin
if a>b then max:=a else max:=b;
end;


Procedure citire;
var fin : text;
    i : longint;
begin
assign(fin,'ssm.in');
reset(fin);
readln(fin,n);
for i:=0 to n do s[i]:=0;
for i:=1 to n do
begin
read(fin,a);
s[i]:=s[i-1]+a;
end;
close(fin);
end;


Procedure find;
var i : longint;
    fout : text;
begin
smin:=Maxint;
smax:=0;

for i:=1 to n do
begin
if s[i]<smin then begin imin:=i; smin:=s[i]; end;
if (i<>imin) and ((s[i]-smin)>smax) then begin smax:=(s[i]-s[imin]); imax:=i; end;
end;
assign(fout,'ssm.out');
rewrite(fout);
writeln(fout,smax,' ',imin+1,' ',imax);
close(fout);
end;
begin
citire;
find;
end.