Cod sursa(job #1417495)

Utilizator laura.calimanLaura Caliman laura.caliman Data 10 aprilie 2015 14:33:48
Problema Range minimum query Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 0.35 kb
Raporteaza aceasta sursa 
var n,m,i,j,k,x,y:longint;
    a:array[1..100000] of longint;
    
begin
  assign(input,'rmq.in');
  assign(output,'rmq.out');
  reset(input);
  rewrite(output);
  read(n,m);
  for i:=1 to n do read(a[i]);
  for i:=1 to m do begin
    read(x,y);
    k:=100000;
    for j:=x to y do
      if k>a[j] then k:=a[j];
    writeln(k);
  end;
end.