var a,s:array[0..250000] of int64;
    f,g:text;
    aux,n,i,j,m,z,x,y,min:longint;

begin
 assign(f,'cuburi2.in'); reset(f);
 assign(g,'cuburi2.out'); rewrite(g);
 read(f,n,m);
 for i:=1 to n do begin
  read(f,a[i]);
  s[i]:=s[i-1]+a[i];
 end;
 for i:=1 to m do begin
  read(f,x,y);
  z:=0;
  for j:=x to y do
   z:=z+s[y]-s[j];
  min:=z; aux:=x;
  for j:=x+1 to y do begin
   z:=z+s[j-1]-s[x-1]-(s[y]-s[j-1]);
   if z<min then begin
    aux:=j;
    min:=z;
   end;
  end;
  writeln(g,aux,' ',min);
 end;
 close(f); close(g);
end.