Cod sursa(job #174421)

Utilizator noi_marinescuotilia marinescu noi_marinescu Data 8 aprilie 2008 20:46:39
Problema Arbori de intervale Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.49 kb
type interv=1..100000;
var f,g:text; n,m,i,a,b:longint;  v:array[1..100000] of longint;cod:0..1;
function max(a,b:interv):longint;
var maxi,i:longint;
begin
maxi:=v[a];
for i:=a to b do if v[i]>maxi then maxi:=v[i];
max:=maxi;
end;

begin
assign(f,'arbint.in');
assign(g,'arbint.out');
reset(f); 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, cod, a,b);
if cod=0 then writeln(g,max(a,b))
else v[a]:=v[b];
end;
close(f);
close(g);
end.