Cod sursa(job #505236)

Utilizator vendettaSalajan Razvan vendetta Data 1 decembrie 2010 09:14:16
Problema Arbori de intervale Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.79 kb
var
    f,g:text;
    max,a,b,x,n,m,i,j:longint;
    v:array[1..100000] of longint;
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
            read(f,x,a,b);
            if x=0 then
                begin
                if b-a=1 then
                if v[b]>v[a] then max:=v[b]
                             else max:=v[a];
                if b-a<>1 then
                    begin
                    max:=a;
                    for j:=a+1 to b do
                        if v[j]>max then max:=v[j];
                    end;
                writeln(g,max);
                end;
            if x=1 then v[a]:=b;
        end;
    close(f);close(g);
end.