记录编号	14802	评测结果	AAAAAAAAAA
题目名称	中考分数	最终得分	100
用户昵称	chengyang	是否通过	通过
代码语言	Pascal	运行时间	0.003 s
提交时间	2009-11-05 09:12:37	内存使用	0.30 MiB

program nark;
var
  a:array[1..100000]of integer;
  n,i,m,j,ans:longint;
begin
  assign(input,'mark.in');
  assign(output,'mark.out');
  reset(input); rewrite(output);
  readln(n,m);
  for i:=1 to n do readln(a[i]);
  readln(ans);
  j:=1;
  for i:=1 to n do if a[i]>a[ans] then j:=j+1;
  i:=1;
  while (((i-1)*(n div m)+1>j)or(i*(n div m)<j)) and(i<=m) do I:=I+1;
  writeln(i);
  close(input); close(output);
end.