Question

Nhập và số nguyên dương x hãy đếm xem trong dãy a có bao nhiêu phần tử có giá trị bằng x. In ra số đó pascal

bài này khó vá làm ơn chỉ tớ với

Answer 1

program DemSoLanXuatHien;
var
  a: array[1..100] of Integer; // khai báo mảng a với 100 ptu
  n, x, i, count: Integer; 
begin
  readln(n);
  for i := 1 to n do
    readln(a[i]);
  readln(x);
  count := 0;
  for i := 1 to n do
    if a[i] = x then
      count := count + 1;
  writeln(count);
end.