NKTREE - Cây nhị phân tìm kiếm

Tác giả: flashmt

Ngôn ngữ: Pascal

var re:boolean;
    min,max,a,b:int64;

begin
     re:=true;
     min:=-maxlongint-2;
     max:=-min;
     read(b);
     while not seekeoln do
     begin
          read(a);
          if (a>=max) or (a<=min) then
          begin
               re:=false;
               break;
          end;
          if a<b then
          begin
               if b<max then max:=b;
          end
          else
          begin
               if b>min then min:=b;
          end;
          b:=a;
     end;
     if re then writeln('YES')
     else writeln('NO');
end.

Download