import Data.IORef
import Control.Monad

main :: IO()
main = do
  [n, k] <- map read . words <$> getLine :: IO([Int])
  hs <- map read . words <$> getLine :: IO([Int])
  sum <- solve k hs
  putStrLn $ show sum

solve :: Int -> [Int] -> IO (Int)
solve k hs = do
  sum <- newIORef 0
  forM_ hs $ (\h -> modifyIORef sum (+ if h >= k then 1 else 0))
  readIORef sum