Cod sursa(job #152739)

Utilizator dobreDobre Catalin Andrei dobre Data 9 martie 2008 18:55:49
Problema Arbori de intervale Scor 40
Compilator fpc Status done
Runda Arhiva educationala Marime 0.53 kb
program arbint2;
var f,g:text;
    v:array[1..10000]of longint;
    i,n,m:integer;
    z,a,b:longint;
function query(x,y:longint):longint;
var i,maxim:longint;
begin
 maxim:=v[x];
 for i:=x to y do
     if v[i]>maxim then maxim:=v[i];
 query:=maxim;
end;

begin
assign(f,'arbint.in');reseT(f);
assign(g,'arbint.out');rewrite(g);
readln(f,n,m);
for i:=1 to n do read(f,v[i]);
for i:=1 to m do begin
     readln(f,z,a,b);
     if z=1 then v[a]:=b
        else writeln(g,query(a,b));
    end;
close(f);
close(g);
end.