main :: IO()
main = do
    _ <- getLine
    ls <- map read . words <$> getLine
    putStrLn $ if (getsolve ls) then "Yes" else "No"
    
getsolve :: [Int] -> Bool
getsolve ls
    | max < notmax			= True
    | otherwise				= False
    where max = maximum ls
          notmax = (sum ls) - (maximum ls)
