会迷茫的时候 2017-05-01 05:48:45
点我顶贴
收藏
删除
var n,m,i:longint;a:array [1..1001] of string;
procedure quick(l,r:longint);
var i,j:longint; x,t:string;
begin
i:=l;
j:=r;
x:=a[(l+r) div 2];
repeat
while a[i]<x do i:=i+1;
while x<a[j] do j:=j-1;
if i<=j then begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
i:=i+1;
j:=j-1;
end;
until i>j;
if i<r then quick(i,r);
if l<j then quick(l,j);
end;
begin
readln(n,m);
for i:=1 to n do readln(a[i]);
quick(1,n);
writeln(a[m]);
readln;
end.