đổi tiền

program doi_tien;
const fi='doitien.inp';
      fo='doitien.out';
var a:array[1..20] of integer;
    i,j,g,n,k:integer; f:text;
    l:array[0..20,0..1000] of integer;

procedure nhap;
 begin
  assign(f,fi);
  reset(f);
  readln(f,n,k);
  for i:=1 to n do read(f,a[i]);
  close(f);
 end;

procedure tinh;
 begin
  for i:=0 to n do for j:=0 to k do l[i,j]:=+maxint;
  l[0,0]:=0;
  for i:=1 to n do
  for j:=0 to k do
    begin
    l[i,j]:=l[i-1,j];
    for g:=0 to j div a[i] do
      if (l[i-1,j-a[i]*g])<maxint then
      if l[i,j]>l[i-1,j-a[i]*g]+g then
        l[i,j]:=l[i-1,j-a[i]*g]+g;
    end;
 end;

procedure xuat;
 begin
  assign(f,fo);
  rewrite(f);
  if l[n,k]>=maxint then writeln(f,'Ko doi duoc.')
  else writeln(f,l[n,k]);
  close(f);
 end;

begin
 nhap;
 tinh;
 xuat;
end.

const
  mn=101;
  max=1000001;
var
  f:text;
  a: array[0..mn] of longint;
  l: array[0..max] of longint;
  n,m,dem: longint;
 
  procedure input;
  var
    i: longint;
  begin
    readln(n,m);
    for i:=1 to n do
      read(a[i]);
  end;
 
  procedure QHD;
  var
    i,j: longint;
  begin
    For i:=1 to n do
      l[i]:=max;
      l[0]:=0;
    For j:=1 to m do
        for i:=1 to n do
        begin
          if (j>=a[i]) then
            if (l[j]=0)or(l[j] > l[j-a[i]]+1) then
              l[j]:=l[j-a[i]]+1;
      end;
  end;
 
  procedure Qsort(l,r: longint);
  var
    x,y,i,j: longint;
  begin
    if l>=r then exit;
    i:=l;
    j:=r;
    x:=a[random(r-l+1)+l];
    Repeat
      While (a[i]<x) do inc(i);
      While (a[j]>x) do dec(j);
      if (i<=j) then
        begin
          if i<j then
            begin
              y:=a[i];a[i]:=a[j];a[j]:=y;
            end;
          inc(i);
          dec(j);
        end;
    Until (i>j);
    Qsort(i,r);Qsort(l,j);
  end;
 
 
  procedure xuli;
  var
    i: longint;
  begin
    dem:=0;
    Qsort(1,n);
    i:=n;
    if (m mod a[n] >= 1000) or (m mod a[n] = 0) then
  begin
    dem := m div a[n];
    m := m mod a[n];
  end else
  begin
    dem := (m - 1000) div a[n] + 1;
    m := m - dem*a[n];
  end;
      QHD;
      dem:=dem+l[m];
  end;
 
  procedure printf;
  begin
      writeln(dem);
  end;
 
  BEGIN
    Input;
    xuli;
    printf;
  end.