program ssm;
var f,g:text;
    v:array[1..100] of integer;
    s,smax,p,i,ince,fina,n:longint;
begin
  assign(f,'ssm.in');
  reset(f);
  assign(g,'ssm.out');
  rewrite(g);
  readln(f,n);
  for i:=1 to n do
    read(f,v[i]);
  s:=0;
  smax:=0;
  for i:=1 to n do
    begin
      s:=s+v[i];
      if s<0 then
        begin
          s:=0;
          p:=i;
        end
      else
      if s>smax then
        begin
          smax:=s;
          ince:=p+1;
          fina:=i;
        end;
    end;
  writeln(g,smax,' ',ince,' ',fina);
  close(f);
  close(g);
end.