记录编号	14585	评测结果	AAAAAAAAAA
题目名称	389.中考分数	最终得分	100
用户昵称	ybh	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2009-11-02 16:25:25	内存使用	0.11 MiB

program mark;
var
  a:array[1..1000] of integer;
  n,m,x,i,ans:integer;

begin
  assign(input,'mark.in');
  reset(input);
  assign(output,'mark.out');
  rewrite(output);
  readln(n,m);
  for i:=1 to n do
    readln(a[i]);
  readln(x);
  for i:=1 to n do
    if a[i]>a[x]
      then inc(ans);
  writeln(ans div (n div m)+1);
  close(input);
  close(output)
end.