import qualified Data.ByteString.Char8 as BC
import Data.Maybe
import Data.List

main = do
    _ <- getLine
    as <- sort . map (fst . fromJust . BC.readInt) . BC.words <$> BC.getLine
    print $ solve as

solve :: [Int] -> Int
solve xs =
    let js = scanl (+) 0 xs
        noSmallers = zipWith (\x smallers -> smallers*2 < x) xs js
        in
    (+1) . length . takeWhile not . reverse $ noSmallers