import Data.List
import Control.Monad
import Data.Maybe
import Data.Ord
import qualified Data.ByteString.Char8 as BS

readInts :: IO [Int]
readInts = map (fst . fromJust . BS.readInt) . BS.words <$> BS.getLine

readIntLists :: Int -> IO [Int]
readIntLists n = map (fst . fromJust . BS.readInt) <$> replicateM n BS.getLine

solve _ 0 _ = []
solve [] _ _ = []
solve aq n k = (length (filter (==n) aq)) : solve (filter (/=n) aq) (n-1) k

main = do
    [n,k,q] <- readInts
    aq <- readIntLists q
    putStr $ unlines $ map (\x -> if x+k-q > 0 then "Yes" else "No") $ reverse $ solve aq n k
