var v:array[1..250000] of longint;
f,g:text;
n,m,i,x,y,k,j,pion,ind:longint;
s,min:int64;
begin
assign(f,'cuburi2.in');reset(f);
assign(g,'cuburi2.out');rewrite(g);
read(f,n,m);
for i:=1 to n do
    read(f,v[i]);
for i:=1 to m do
    begin
    read(f,x,y);
    min:=1000000;
    for j:=x to y do
        begin
        s:=0;
        ind:=abs(x-j);
        for k:=x to j-1 do
            begin
            s:=v[k]*ind+s;
            dec(ind);
            end;
        ind:=1;
        for k:=j+1 to y do
            begin
            s:=v[k]*ind+s;
            inc(ind);
            end;
        if s<min then
           begin
           pion:=j;
           min:=s;
           end;
        end;
    writeln(g,pion,' ',min);
    end;
close(f);
close(g);
end.