program pascal;
var f,g:text;  min,sum:int64; v:array[1..250000] of longint;
    i,j,k,x,y,n,m,t,aux:longint;

  procedure citire;
  begin
  assign(f,'cuburi2.in'); reset(f);
  assign(g,'cuburi2.out'); rewrite(g);
  readln(f,n,m);
  for i:=1 to n do read(f,v[i]); readln(f);
  for t:=1 to m do
         begin
         read(f,x,y); min:=maxlongint;
         for k:=x to y do
           begin
           sum:=0;
           for j:=x to y do sum:=sum+v[j]*abs(k-j);
           if sum<min then
                     begin
                       min:=sum;
                       aux:=k;
                     end;
           end;
         writeln(g,aux,' ',min);
         end;
  close(f);
  close(g);
  end;
begin
citire;
end.