Cod sursa(job #335492)

Utilizator zseeZabolai Zsolt zsee Data 30 iulie 2009 02:34:30
Problema Range minimum query Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 0.47 kb
program jaj;
type szam=0..100000;
     nagyszam=0..1000000;

var n,a,b,min,i,j:szam;
    m:nagyszam;
    v:^szam;
    ki,be:text;

begin
 getmem(v,sizeof(szam)*100000);
 assign(be,'rmq.in');
 assign(ki,'rmq.out');
 reset(be);
 rewrite(ki);
 readln(be,n,m);
 for i:=1 to n do readln(be,v[i]);
 for i:=1 to m do
  begin
   readln(be,a,b);
   min:=100000;
   for j:=a to b do
     if v[j]<min then min:=v[j];
   writeln(ki,min);
  end;
 close(ki);
end.