tìm trong mảng có phần tử x không?

0 bình luận về “tìm trong mảng có phần tử x không?”

1. 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.

   Bình luận

2. 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 ạ

   Bình luận