TONGSO PAS

code pascal mẫu, tin2016_hanh, 20 test
const fi='TONGSO.inp'; fo='TONGSO.out';
var a:array[1..100005] of longint;
        i,n,dem:longint;b:int64; 
 procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;
procedure nhap;
var i:longint;
begin
    readln(n,b);
        for i:=1 to n do readln(a[i]);
end;
procedure giai;
begin
    sort(1,n);
     dem:=0;
     for i:=n downto 1 do
     begin
             b:=b-a[i];
           inc(dem);
           if b<=0 then break;
     end;
     if b<=0 then writeln(dem)
     else write(0);
end;

begin
    assign(input,fi);reset(input);
    assign(output,fo);rewrite(output);
    nhap;
    giai;  
end.