// Arhiva educationala - Range minimum Query

var
	n, m, i, k, x, y : longint;
	log : array[0..100000] of integer;
	min : array[1..100000, 0..18] of longint;
    f, g: text;

function minim (a, b : longint) : longint;
begin
if (a < b) then minim := a else  minim := b;
end;

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, min[i, 0]);

for i := 2 to 100000 do log[i] := log[i shr 1] + 1;
	
for k := 1 to log[n] do
	for i := 1 to n - (1 shl k) + 1 do
		min [i, k] :=  minim (min[i, k-1], min[i + (1 shl (k-1)), k-1]);
		
for i := 1 to m do
	begin
	readln	(f, x, y);
	writeln	(g, minim (min[x, log[y - x + 1]], min[y + 1 - (1 shl log[y - x + 1]), log[y - x + 1]]));
	end;
		
close	(f);				close	(g);
end.