import Data.List

main :: IO ()
main = do
  getLine
  ls <- map read . words <$> getLine
  putStrLn $ if solve ls
    then "Yes"
    else "No"

solve :: [Int] -> Bool
solve ls = x < sum xs
  where (x:xs) = sortBy (flip compare) ls
