program mark;
var
  i,j,t,s,ss,n,m,x:longint;
  a:array[1..1000] of longint;

begin
  assign(input,'mark.in');
  assign(output,'mark.out');
  reset(input);
  rewrite(output);

  read(n,m);
  ss:=n div m;
  for i:=1 to n do read(a[i]);
  read(x);
  i:=0;
  t:=1;
  while i<n do
  begin
    inc(i);
    if a[i]>a[x] then inc(t);
  end;
  for i:=1 to m do
    if ((i-1)*ss<=t) and ((i*ss)>=t) then s:=i;
  write(s);



  close(input);
  close(output);
end.