import Data.List
main=do
    l<-getLine>>=return.(read::String->Integer)
    getLine
    w<-getLine>>=return.sort.map(read::String->Integer).words
    print$length$takeWhile(<=l)$scanl1(+)w