Cod sursa(job #1168408)

Utilizator Mihai_ChihaiMihai Chihai Mihai_Chihai Data 8 aprilie 2014 12:36:09
Problema Range minimum query Scor 30
Compilator fpc Status done
Runda Arhiva educationala Marime 0.6 kb
program rmq_elementar;
const nmax=100000;
      inf=1 shl 30;
  var a:array[1..nmax] of longint;
      n,i,m,x,y,min,j:longint;
      f,g:text;
      bufin,bufout:array[1..1 shl 16] of byte;
  begin
   assign(f,'rmq.in');
   assign(g,'rmq.out');
   reset(f);
   rewrite(g);
   settextbuf(f,bufin);
   settextbuf(g,bufout);
   readln(f,n,m);
   for i:=1 to n do
     readln(f,a[i]);
   for i:=1 to m do
     begin
       min:=inf;
       readln(f,x,y);
       for j:=x to y do
         if a[j]<min then min:=a[j];
       writeln(g,min);
     end;
   close(f);
   close(g);
  end.