Program adas;
var SecvMin,SecvMax,i,n,imin,imax,a : longint;
    s : array[0..6000000] of longint;
    fin,fout : text;








begin
assign(fin,'ssm.in');
reset(fin);
readln(fin,n);
s[0]:=0;
SecvMin:=100000;
SecvMax:=0;
for i:=1 to n do
begin
read(fin,a);
s[i]:=a+s[i-1];
end;
close(fin);
for i:=1 to n do
begin
if s[i]<secvMin then begin imin:=i; SecvMin:=s[i]; end;
if (i<>imin) and (S[i]-SecvMin>SecvMax) then begin imax:=i; SecvMax:=S[i]-SecvMin; end;
end;
assign(fout,'ssm.out');
rewrite(fout);
writeln(fout,SecvMax,' ',imin+1,' ',imax);
close(fout);

end.