var f,g :text; n,m,k,i,d,j,x :longint; a :array[1..10000000] of longint; begin assign(f,'doanvien.inp'); reset(F); assign(g,'doanvien.out'); rewrite(g); readln(f,n,m,k); for i:=1 to m do a[i]:=0; for i := 1 to m do begin read(f,x); inc(a[x]); end; readln(f); for j:=1 to k do begin d:= 0; read(f,x); for i:= 1 to n do if a[i] <= x then inc(d); writeln(g,d); end; close(f); close(g); end.