import Data.List

main = do
  _ <- getLine
  xs <- map read . words <$> getLine
  let as = reverse $ sort xs
  putStrLn $ if (head as < foldr (+) 0 (tail as))
             then "Yes"
             else "No"