PASCAL输出一个整数序列中与指定数字相同的数的个数.

Question

PASCAL输出一个整数序列中与指定数字相同的数的个数.

Answer 1

var
a:array[1..100] of integer;
i,n,ans,num:integer;
begin
read(n,num);
for i:=1 to num do
read(a[i]);
for i:=1 to num do
if n=a[i] then inc(ans);
write(ans);
end.
不知道是不是这样
a表示序列，n表示指定的数，num是序列中数的总数，ans是答案