PASCAL Bài 1. Giả sử mảng A đã được sắp xếp theo thứ tự tăng dần(Không nhập ngẫu nhiên). Viết hàm để kiểm tra xem phần tử X có trong mảng A hay không?

program binary_chop ;
  uses crt;
 var a : array[1..1000] of longint ;
     n, i,  tk : longint ;
  function check_binary(var a:array of longint;l,r,x:longint):string;
     var m : longint ;
     begin
    if r >= l then 
         begin
        m := l + (r - l) div 2;
        if a[m] = x then exit('YES');
        if a[m] > x then exit(check_binary(a,l,m-1,x));
        exit(check_binary(a,m+1,r,x));
         end ;
    exit('NO');
     end ;
begin
    clrscr;
    readln(n,tk);
    for i := 1 to n do read(a[i]);
    write(check_binary(a,1,n,tk));
end .

uses crt;
type mang=array[1..1000] of longint;
var n,i,x:longint;
a:array[1..1000] of longint;

function find(a:mang;x,n:longint):boolean;
var i,j,m:longint;
begin
i:=1;
j:=n;
while i<=j do
begin
 m:=(i+j) div 2;
 if a[m]=x then exit(true)
 else
  if a[m]>x then
   j:=j-1
  else
   i:=i+1;
end;
exit(false);
end;

begin
clrscr;
readln(n,x);
for i:=1 to n do
 readln(a[i]);
write(find(a,x,n));
readln
end.