ues crt;
var a:aray[1..100] of integer;
m,n,d:integer;
begin
readln(n);
for i:=1 to n do readln(a[i]);
clrscr;
for i:=1 to n do write(a[i],' ');
readln(m);
for i:= 1to n do if a[i] = m then d:=d+1;
writeln(d);
for i:=1 to n do if a[i] = m then a[i]:=0;
readln
end;