import Control.Applicative
import Data.List

search sub_ns q = map (\x -> if (sum x) == q then True else False) sub_ns

exsearch :: [Int] -> Int -> IO()
exsearch ns q = do
    let sub_ns = subsequences ns
        sub_ns_res = search sub_ns q
     in if (elem True sub_ns_res) then putStrLn $ "yes" else putStrLn $ "no"


main :: IO ()
main = do
    _n <- getLine
    let n = read _n :: Int
    ns <-  (map (\x -> read x :: Int). words) <$> getLine
    _q <- getLine
    let q = read _q :: Int
    qs <-  (map (\x -> read x :: Int). words) <$> getLine
    mapM_ (exsearch ns) qs