program secv;
var
    f,g:text;
    v,s:array[0..10000] of longint;
    max,sum,i,j,n,i1,i2,st:longint;
begin
    assign(f,'secv.in');reset(f);
    assign(g,'secv.out');rewrite(g);
    readln(f,n);
    for i:=1 to n do
        begin
            read(f,v[i]);
            s[i]:=s[i-1]+v[i];
        end;

    i1:=1;
    i2:=1;
    st:=1;
    sum:=s[1];
    max:=sum;
    for i:=2 to n do
        begin
            sum:=sum+v[i];
            if sum<s[i]-s[i-1] then
                begin
                    sum:=s[i]-s[i-1];
                    st:=i;
                end;
            if sum>max then
                begin
                    max:=sum;
                    i1:=st;
                    i2:=i;
                end;
        end;
    writeln(g,max,i1,i2);
    {writeln(g,i1);
    writeln(g,i2);
    for i:=i1 to i2 do write(g,v[i],' ');
    }
    close(f);
    close(g);
end.