! 2019.9.28 
!
      program answer
      implicit none
      integer :: N_i, K_i
      integer,allocatable,dimension(:) :: hi_i
      integer :: i
      integer :: ans_i
!
      ans_i = 0
      read(*,*) N_i,K_i
      allocate(hi_i(N_i))
      read(*,*) (hi_i(i),i=1,N_i)
!
      do i=1,N_i
        if(hi_i(i) .ge. K_i) ans_i = ans_i + 1
      end do
      write(*,*) ans_i
      end program answer