var
  a : array [1..100] of longint;
  i, n, sum, k, max, nom, min, sum1 : longint;
begin
  readln(k);
  readln(n);
  for i:=1 to n do
    readln(a[i]);
  sum:=0;
  for i:=1 to n do
    begin
      if a[i]>=k then
        sum:=sum+1;
    end;
  writeln(sum);
end.