Cod sursa(job #1231400)

Utilizator Qwerty0606Adrian Tutunaru Qwerty0606 Data 20 septembrie 2014 14:25:37
Problema Arbori de intervale Scor 40
Compilator fpc Status done
Runda Arhiva educationala Marime 0.42 kb
program pr1;
type t=array[1..100000] of int64;
var
q:t;
a,b,n,m,c,j,l,i,max:longint;
f,g:text;
begin
assign(f,'arbint.in');
reset(f);
readln(f,n,m);
for i:=1 to n do
read(f,q[i]);
assign(g,'arbint.out');
rewrite(g);

for i:=1 to m do
begin
readln(f,c,a,b);
if c=0 then begin
max:=q[a];
for j:=a+1 to b do
if q[j]>max then max:=q[j];
writeln(g,max);
end
else
q[a]:=b;
end;
close(g);
end.