Pagini recente » Cod sursa (job #2033430) | Cod sursa (job #1386189) | Cod sursa (job #954005) | Cod sursa (job #134300) | Cod sursa (job #186680)
Cod sursa(job #186680)
var op,x,y,i,a,b,n,m,max,poz,v:longint;
arb:array[1..300001] of longint;
function maxim(p,q:longint):longint;inline;
begin
if p>q then maxim:=p else maxim:=q;
end;
procedure refresh(nod,li,ls:longint);
var mij:longint;
begin
if li=ls then arb[nod]:=v
else
begin
mij:=(li+ls) div 2;
if poz<=mij then refresh(2*nod,li,mij)
else refresh(2*nod+1,mij+1, ls);
arb[nod]:=maxim(arb[2*nod],arb[2*nod+1]);
end;
end;
procedure ask(nod,li,ls:longint);
var mij:longint;
begin
if (x<=li)and(y>=ls) then begin if arb[nod]>max then max:=arb[nod]; end
else
begin
mij:=(li+ls) div 2;
if x<=mij then ask(2*nod,li,mij);
if y>mij then ask(2*nod+1,mij+1,ls);
end;
end;
begin
assign(input,'arbint.in'); reset(input); assign(output,'arbint.out'); rewrite(output);
readln(n,m);
for i:=1 to n do
begin
read(v);
poz:=i;
refresh(1,1,n);
end;
for i:=1 to m do
begin
readln(op,a,b);
if op=0 then
begin
max:=0; x:=a; y:=b; ask(1,1,n); writeln(max);
end
else
begin
v:=b; poz:=a;refresh(1,1,n);
end;
end;
close(input); close(output);
end.