不是VIP会员,不能显示答案

题目解答

题目:
var
num:array[0..1000] of longint;
i,x,n:longint;
begin
readln(n);
fillchar(num,sizeof(num),0);
for i:=1 to n do
begin
read(x);
num[x]:=num[x]+1;
end;
readln(x);
writeln(num[x]);
end.
输入:
6
66 63 62 66 60 0
66
输出:2
考点:
分析:
解答:
评论:
老师: