import           Control.Applicative
import           Control.Monad
import           Debug.Trace

powerset :: [a] -> [[a]]
powerset xs = filterM (\x -> [True, False]) xs

main :: IO ()
main = do
    getLine
    as <- fmap read . words <$> getLine
    getLine
    ms <- fmap read . words <$> getLine
    let bs = fmap sum $ powerset as :: [Int]
    forM_ ms $ \m -> do
        if m `elem` bs
            then putStrLn "yes"
            else putStrLn "no"

