import Control.Monad (filterM)

main :: IO ()
main = do
    getLine
    elems <- fmap (map read . words) getLine :: IO [Int]
    getLine
    query <- fmap (map read . words) getLine :: IO [Int]
    let sums = map sum . filterM (\x -> [True, False]) $ elems
    mapM_ (\q -> putStrLn (if q `elem` sums then "yes" else "no")) query
