var     a,sum:array[0..6000000] of longint;
        buf:array[1..100000000] of char;
        n,i,j,poz,min,t,p,s,x,y,best:longint;
        sir:string;
        f,g:text;

begin
  assign(f,'ssm.in');
  assign(g,'ssm.out');
  reset(f);
  settextbuf(f,buf);
  rewrite(g);
  readln(f,n);
  for i:=1 to n do
    begin
      read(f,a[i]);
      a[i]:=a[i]+a[i-1];
    end;

  s:=-1000000000;
  min:=1000000000;
  x:=1;
  for i:=1 to n do
    begin
      best:=a[i]-min;
      if min>a[i] then begin if a[i+1]>0 then t:=i+1; min:=a[i]; end;
      if s<best then begin s:=best; y:=i; x:=t; end;
    end;
  if x=0 then x:=y;
  write(g,s,' ',x,' ',y);
  close(g);
end.