Question

Nhập vào 1 dãy số nguyên n phần tử. Nhập vào 1 số nguyên m. Cho biết m xuất hiện bao nhiêu lần trong dãy số nguyên đã nhập

 

Answer 1

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.