solve :: [Int] -> Int -> Bool
solve [] _ = False
solve _ 0 = True
solve [x] m = x == m
solve (x:xs) m = solve xs m || solve xs (m-x)

getIntListFromLine :: IO [Int]
getIntListFromLine = do
    raw <- getLine
    let ans = map read (words raw) :: [Int]
    return ans

main = do
    n <- getLine
    a <- getIntListFromLine
    q <- getLine
    m <- getIntListFromLine
    let ans = map (solve a) m
    sequence $ map putStrLn (map (\x -> if x then "yes" else "no") ans)

