import Control.Applicative ((<$>))

solve :: [Int] -> Int -> Int -> Bool
solve a i m
    | m == 0    = True
    | i >= n    = False
    | otherwise = solve a (i + 1) m || solve a (i + 1) (m - a !! i)
    where n = length a

main :: IO ()
main = do
    _ <- getLine
    a <- map read . words <$> getLine
    _ <- getLine
    putStr . unlines .
        map (\x -> if x then "yes" else "no") .map (solve a 0) . map read . words =<< getLine