记录编号	67765	评测结果	AAAAAAAAAA
题目名称	中考分数	最终得分	100
用户昵称	铁策	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2013-08-14 18:01:23	内存使用	0.16 MiB

program P389;
var
n,m,k,i,j,X:longint;
a,b,c:array[1..1000] of longint;
procedure swap(var a,b:longint);
var
i:longint;
begin
i:=a; a:=b; b:=i;
end;
procedure qsort(s,t:longint);
var
i,j,x,y:longint;
begin
i:=s;
j:=t;
x:=a[(s+t) div 2];
repeat
while a[i]>x do inc(i);
while a[j]<x do dec(j);
if i<=j then begin
swap(a[i],a[j]);
swap(c[i],c[j]);
inc(i);
dec(j);
end;
until i>j;
if s<j then qsort(s,j);
if i<t then qsort(i,t);
end;
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]);
for i:=1 to n do c[i]:=i;
readln(x);
qsort(1,n);
b[1]:=1;
for i:=1 to n do if c[i]=x then begin x:=i;  break; end;
for i:=2 to n do b[i]:=i;
for i:=1 to m do
begin
if ((i-1)*(n div m)+1<=b[x])and(i*(n div m)>=x) then begin
writeln(i);
halt;
end;
end;
end.