import Control.Monad
import Data.Array

main = do
  li <- getLine
  let [n,k,q] = map read $ words li
  as <- forM [1..q] (\_ -> do
    li <- getLine
    return $ read li
    )
  let ans = compute n k q as
  mapM_ putStrLn ans

compute :: Int -> Int -> Int -> [Int] -> [String]
compute n k q as =
    [ if a > 0 then "Yes" else "No" | a <- elems ar ]
  where
    ar = accumArray (+) (k-q) (1,n) [ (a,1) | a <- as ]

-- Kポイント持っているので、負けがK-1までなら勝ち残る。
-- 負けとは、自分以外の人が答えること。
-- 逆に言うと、一つも答えなかった人はK-Qポイントになる。
-- そこから、答えた数だけ+1される。
-- その結果が1以上か0以下かを判定すればよい。
