program cuburi2;

var fin,fout:text;
    p,q,i,j,n,m,min,mini,x,y,a,b:Longint;
    v:array [1..250000] of Longint;
{*------------------------------------------------------*}
{*------------------------------------------------------*}
begin
    assign(fin,'cuburi2.in'); reset(fin);
    assign(fout,'cuburi2.out'); rewrite(fout);
    readln(fin,n,m);
    for i:=1 to n do read(fin,v[i]);
    Readln(fin);
    for q:=1 to m do
    begin
        readln(fin,a,b);
        mini:=1; min:=maxint;
        for i:=a to b do
        begin
           x:=0; y:=0; p:=0;
           for j:= i-1 downto a do
           begin
              inc(p);
              x:=x+v[j]*p;
              if x > min then break;
           end;  p:=0;
           for j:=i+1 to b do
           begin
              inc(p);
              y:=y+v[j]*p;
              if y > min then Break;
           end;
           if x+y < min then
           begin
              min:=x+y;
              mini:=i;
           end;

        end;
        writeln(fout,mini,' ',min);
    end;
    close(fin);
    close(fout);
end.