pascal 有n个正整数,n

var i,n,k,t:longint;
a:array[1..3000]of boolean;
begin
readln(n,k);
fillchar(a,sizeof(a),false);
for i:=1 to n do begin
readln(t);
a[t]:=true;
end;
t:=0;
for i:=1 to 3000 do
if a[i] then begin inc(t);if t=k then writeln(i);end;
end.
{直接手打的,不过应该没什么问题了,发邮箱至lzoi_jcr1@126.com,记得加备注,像一楼那种,其实看到数据那么水,没必要再排序了}