program e1;
 const
   maxn = 1000;
 var
   n,m: longint;
   A:   array[1..maxn] of longint;



procedure init;
 var
   i:longint;
 begin
   readln(n,m);
   for i :=1 to n do readln(A[i]);
 end;


procedure main;
 var
   i,rank,x:       longint;
 begin
   readln(x); rank :=0;
   for i :=1 to n do if A[i] >A[x] then inc(rank);
   writeln(rank div (n div m)+1);
 end;



begin
  assign(input,'mark.in');  reset(input);
  assign(output,'mark.out'); rewrite(output);
  init;
  main;
  close(input);  close(output);
end.