Pagini recente » Cod sursa (job #1643395) | Cod sursa (job #846709) | Cod sursa (job #1558584) | Cod sursa (job #243523) | Cod sursa (job #164257)
Cod sursa(job #164257)
program p1;
type tip1=1..100000;
tip2=1..1000000;
var f1,f2:text;
a:array[1..10000] of tip1;
n,i,min,x,y:tip1;
m,j:tip2;
begin
assign(f1,'rmq.in');
reset(f1);
readln(f1,n,m);
assign(f2,'rmq.out');
rewrite(f2);
for i:=1 to n do
readln(f1,a[i]);
for j:=1 to m do
begin
readln(f1,x,y);
min:=a[x];
for i:=x to y do
if a[i]<min then
min:=a[i];
writeln(f2,min);
end;
close(f1);
close(f2);
end.