viết chương trình nhập vào một mảng số m số và chỉ số k.tính và đưa ra các số trùng với k trong mảng

0 bình luận về “viết chương trình nhập vào một mảng số m số và chỉ số k.tính và đưa ra các số trùng với k trong mảng”

1. program sok;

   uses crt;

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

         n,i,k,d:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu cua day: ‘);  

      readln(n);

   writeln(‘Nhap tung phan tu cua day: ‘);

   for i:=1 to n do

     begin

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

         readln(A[i]);

     end;

   write(‘Nhap k: ‘);

    readln(k);

   d:=0;

   for i:=1 to n do

     if A[i]=k then inc(d);

   writeln(‘Trong day cos ‘,d,’ phan tu bang ‘,k);

   readln

   end.

   Bình luận