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.