记录编号	237475	评测结果	AAAAAAAAAA
题目名称	中考分数	最终得分	100
用户昵称	南风喃	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2016-03-17 17:18:16	内存使用	0.17 MiB

var
n,m,x,i,j,z,l,u,o:longint;
a:array[1..1000] of longint;
begin
assign(input,'mark.in');
assign(output,'mark.out');
reset(input);
rewrite(output);
read(n,m);
for i:=1 to n do
readln(a[i]);
read(x);
z:=a[x];
for i:=1 to n do
if i<>x then
if a[i]>z then inc(l);
u:=n div m;
o:=(l+1)mod u;
if o=0 then writeln((l+1)div u)else writeln(((l+1)div u)+1);
end.