Viết chương trình nhập vào dãy số nguyên gồm N số. Nhập số cần tìm. Hãy cho biết có số cần tìm trong dãy hay không? Giúp em với ạ. Em cảm ơn

0 bình luận về “Viết chương trình nhập vào dãy số nguyên gồm N số. Nhập số cần tìm. Hãy cho biết có số cần tìm trong dãy hay không? Giúp em với ạ. Em cảm ơn”

1. program kiemtra;

   Uses crt;

   var A:array[1..100] of integer;

         n,i,k:integer;

         kt:boolean;

   begin

        clrscr;

        write(‘Nhap so luong n: ‘);   readln(n);

        for i:=1 to n do

            begin

                write(‘So thu ‘,i,’: ‘);  readln(A[i]);

            end;

        write(‘Nhap so can tim: ‘);  readln(k);

        for i:=1 to n do

            if A[i]=k then

                begin

                    kt:=true;

                    break;

                end;

        if kt=true then write(‘Co so can tim trong day’)

            else write(‘Khong co so can tim trong day’);

        readln;

   end.

   Bình luận