viết chương trình nhập vào một mảng gồm M số và một chỉ số k đếm số lần suất hiện của k trong mảng đó?

0 bình luận về “viết chương trình nhập vào một mảng gồm M số và một chỉ số k đếm số lần suất hiện của k trong mảng đó?”

1. program xuathien;

   uses crt;e(‘Nhap 

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

         m,i,k,d:integer;

   begin

   clrscr;

    write(‘Nhap so luong phan tu: ‘);   readln(m);

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

   for i:=1 to m do

    begin

     write(‘A[‘,i,’]= ‘);

     readln(A[i]);

    end;

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

   d:=0;

   for i:=1 to m do

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

   writeln(‘Co ‘,d,’ phan tu cua day bang ‘,k);

   readln

   end.

   Bình luận

2. uses crt;

   var m:array[1..100] of integer;
         n,i,k,d:integer;
   begin
   clrscr;
   write(‘Nhap so luong phan tu: ‘);   readln(n);
   for i:=1 to n do
    begin
     write(‘nhap m[‘,i,’]: ‘);  readln(a[i]);
    end;
   write(‘Nhap k: ‘);  readln(k);
   for i:=1 to n do
     if m[i]=k then d:=d+1;
   writeln(‘Co ‘,d,’ phan tu cua day bang k’);
   readln;
   end.

   Bình luận