Question

Đếm số lần xuất hiện của giá trị x trong mảng A.Đếm số lần xuất hiện của các phần tử trong mảng.help meee

Answer 1

program dem_so_lan_xuat_hien;

uses crt;

var

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

     N, X, i, count: integer;

begin

     clrscr;

     write('Nhap so phan tu mang A: '); readln(N);

     for i := 1 to N do

     begin

          write('A[',i,'] = ');

          readln(A[i]);

     end;

     write('Nhap gia tri can tim x: '); readln(X);

     count := 0;

      for i := 1 to N do

     begin

          if A[i] = X then

               count := count + 1;

     end;

     writeln('So lan xuat hien cua ', X, ' trong mang A la: ', count);

     readln;

end.