K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

5 tháng 10 2021

uses crt;

var i,n,n,d; integer;

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

begin

clrscr;

readln(n);

for i:=1 to n do 

readln(a[i]);

readln(m);

for i:=1 to n do

if a[i] = m then d:=d+1;

write(d);

readln;

end.