var n,m,i,a,b:longint;
    v:array [1..250000] of longint;
    f,g:text;

 procedure citire;
  var i:longint;
  begin
   readln(f,n,m);
   for i:=1 to n do read(f,v[i]);
   readln(f);
  end;

 procedure cuburi(a,b:longint);
  var i,p,min,t,j:longint;
  begin
   min:=0;
   for i:=a+1 to b do min:=min+v[i]*(i-a);
   p:=a;
   for i:=a+1 to b do
     begin
     t:=0;
     for j:=i-1 downto a do t:=t+v[j]*(i-j);
     for j:=i+1 to b do t:=t+v[j]*(j-i);
     if t<min then
       begin
       min:=t;
       p:=i;
       end;
     end;
   writeln(g,p,' ',min);
  end;

begin
  assign(f,'cuburi2.in');
  assign(g,'cuburi2.out');
  reset(f);
  rewrite(g);
  citire;
  for i:=1 to m do
    begin
    readln(f,a,b);
    cuburi(a,b);
    end;
  close(f);
  close(g);
end.