记录编号	14603	评测结果	AAAAAAAAAA
题目名称	中考分数	最终得分	100
用户昵称	Hamster	是否通过	通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2009-11-02 16:59:31	内存使用	0.12 MiB

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.