讨论 / pascal 题解
会迷茫的时候 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.

#1 2017beijiang99@2018-04-13 00:58:30
回复 删除
我不会 pascal 语言
查看更多回复
提交回复