var n:longint;
    k,i,s,smax,smin,s2:integer;
    a:array[1..10000] of integer;
    f,g:text;

procedure lucru;
begin
smax:=0;
for i:=1 to n do
  if a[i]>smax then
    begin
      smax:=a[i];
      s:=i;
    end;
smin:=smax;
for i:=1 to s-1 do
  if a[i]<smin then begin
                      smin:=a[i];
                      s2:=i;
                    end;
end;

procedure citire;
begin
assign(f,'ssm.in');
reset(f);
assign(g,'ssm.out');
rewrite(g);
read(f,n);
for i:=1 to n do read(f,a[i]);
s:=0;
for i:=1 to n do begin inc(s,a[i]);
                       a[i]:=s;
                 end;
end;

begin
citire;
smax:=0;
lucru;
write(g,smax-smin,s2+1,s);
close(f);
close(g);
end.