use strict;
use warnings;
use utf8;

chomp(my $l = <STDIN>);
chomp(my $n = <STDIN>);
chomp(my $w = <STDIN>);
my @wi = sort {$a <=> $b } split / /,$w;
my $ans = 0;
for (@wi){
    $ans++ if ($l -= $_) >= 0;
}
print $ans , "\n";