import Data.List
import Data.Ord
import Data.Char
import Data.Ratio
import Data.Maybe

main = do
  getLine
  ls <- sort . map (read::String->Int) . words <$> getLine
  putStrLn $ if (sum . init) ls > last ls then "Yes" else "No"
