var max,min,i,j,n,k:longint;
    sum:longint;
    inc,sf:longint;
    v,s:array[1..6000000] of longint;
    f,g:text;

procedure load;
begin
assign(f,'ssm.in');
reseT(f);
readln(f,n);
for i:=1 to n do
read(f,v[i]);close(f);
assign(g,'ssm.out');
rewrite(g);
end;
BEGIN
load;
sum:=0;
for i:=1 to n do
 begin
  sum:=sum+v[i];
  s[i]:=sum;
 end;
max:=s[1];

for i:=2 to n do
if max<s[i] then
begin
 sf:=i;
 max:=s[i];
end;
min:=s[sf];
for i:=i downto 1 do
if min>s[i] then
begin
 min:=s[i];
 inc:=i;
end;
inc:=inc+1;
sum:=0;
for i:=inc to sf do
sum:=sum+v[i];
write(g,sum,' ',inc,' ',sf);
close(g);
END.