fn main() {
    let nk: Vec<usize> = read_vec();
    let p: Vec<usize> = read_vec();

    let n = nk[0];
    let k = nk[1];
    
    let mut vp: Vec<usize> = vec![0; 401];
    for i in 0..n {
        vp[400 - p[i]] += 1;
    }
    
    let mut ans: usize = 0;
    let mut pop: usize = 0;
    for i in 0..vp.len() {
        pop += vp[i];
        if pop > k {
            ans = pop - vp[i];
            break;
        }
    }

    if n == k {
        ans = n;
    }

    println!("{}", ans);
}

fn read<T: std::str::FromStr>() -> T {
    let mut s = String::new();
    std::io::stdin().read_line(&mut s).ok();
    s.trim().parse().ok().unwrap()
}

fn read_vec<T: std::str::FromStr>() -> Vec<T> {
    read::<String>().split_whitespace()
        .map(|e| e.parse().ok().unwrap()).collect()
}