FUNCTION timx(x:integer; A:mang):boolean;
Var i:integer; kt:boolean;
Begin
Kt:=false;
For i:=1 to n do
If a[i]=x then kt:=true;
Timx:=kt;
End;

chúc bn hc tốt và xin ctlhn về cho nhóm ạ mik cày lại điểm bị mất cho nhóm ạ

program kiem_tra;

uses crt;

type kmang:array[1..1000] of integer;

var A:kmang;

     n,i,x:integer;

{---ham-kiem-tra---}

function kt(so:integer; A:kmang; n:integer):boolean;

var j:integer;

begin

       kt:=true;

       for j:=1 to n do

              if A[j]=so then exit;

       exit(false);

end;

{---Chuong-trinh-chinh---}

BEGIN

       clrscr;

       write('Nhap n: ');  readln(n);

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

              end;

       write('Nhap x: '); readln(x);

       if kt(x,A,n) then write('Co') else write('Khong');

       readln;

end.