n, k, *a = $<.read.split.map(&:to_i)
s = (1..400).find { |i| a.count { _1 >= i } <= k }
p a.count { _1 >= s }