viết chương trình nhập vào một mảng một số nguyên k kiểm tra có bao nhiêu số trong mảng = k

0 bình luận về “viết chương trình nhập vào một mảng một số nguyên k kiểm tra có bao nhiêu số trong mảng = k”

1. var a: array[1..250] of integer;

         k: integer;

         i, n, d: byte;

   Begin

         Write(‘k = ‘); readln(k);

         Write(‘n = ‘); readln(n); d:=0;

         For i:=1 to n do

           Begin

              Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

              If a[i]=k then inc(d);

           End;

       Write(‘co ‘, d, ‘ so bang ‘, k);

       Readln

   End.

   Bình luận

2. program dem_trung;

   uses crt;

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

        n,i,k,d:integer;

   begin

          clrscr;

          write(‘Nhap k: ‘);   readln(k);

          write(‘Nhap so luong phan tu cua mang: ‘);   readln(n);

          d:=0;

          for i:=1 to n do

                 begin

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

                        if A[i]=k then d:=d+1;

                 end;

          write(‘Co ‘,d,’ so bang ‘,k);

          readln;

   end.

   Bình luận