import Control.Applicative
main = do
  n <- getLine
  as <- map read.words<$>getLine
  q <- getLine
  ms <- map read.words<$>getLine
  mapM_ (\m -> do
          let res = solve m as
          if res then putStrLn "yes"
                 else putStrLn "no" ) ms

solve m [] = False
solve m (x:xs)
  | m == x = True
  | m <  x = solve m xs
  | m >  x = solve (m-x) xs || solve m xs