solve :: [Int] -> Bool
solve length = maxLength < sumExcludingMax
  where maxLength       = maximum length
        sumExcludingMax = sum length - maxLength

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