var     a:array[1..100000]of longint;
        n,m,i,j,min,x,y:longint;
        f,g:text;
begin
  assign(f,'rmq.in');
  assign(g,'rmq.out');
  reset(f);
  rewrite(g);
  readln(f,n,m);
  for i:=1 to n do
    readln(f,a[i]);
  for i:=1 to m do
    begin
      readln(f,x,y);
      min:=a[x];
      for j:=x+1 to y do
        if a[j]<min then min:=a[j];
      writeln(g,min);
    end;
  close(g);
end.