Cod sursa(job #252028)

Utilizator valytgjiu91stancu vlad valytgjiu91 Data 3 februarie 2009 20:13:22
Problema Arbori de intervale Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.52 kb
const nmax=100000;
var f,g:text;
v:array[1..nmax]of longint;
m,l,a,b,c,n,i,j,x:longint;
begin
assign(f,'arbint.in');
reset(f);
assign(g,'arbint.out');
rewrite(g);
readln(f,n,m);
for i:=1 to n do
begin
read(f,v[i]);
end;
for i:=1 to n do
   begin
      readln(f,x,a,b);
      if x=1 then
             v[a]:=b
             else
             begin
             l:=v[a];
             for j:=a+1 to b do
             if v[j]>l then l:=v[j];
             writeln(g,l);
             end;
      end;
close(g);
end.