main = do
    _ <- getLine
    ls <- map read . words <$> getLine
    let maxL = maximum ls
        sumL = sum ls
        in if 2 * maxL < sumL then putStrLn "Yes"
                              else putStrLn "No"