Cod sursa(job #163735)

Utilizator zuzulicatilimpea razvan nicolae zuzulica Data 22 martie 2008 22:43:37
Problema Range minimum query Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.5 kb
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(f1);
    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.