nsd 2011-08-07 04:17:00
点我顶贴
收藏
删除
var
m,k,i,j:integer;
s:string;
a:array[1..1000]of string;
begin
readln(m,k);
for i:=1 to m do readln(a[i]);
for i:=1 to k do
for j:=i+1 to m do
if (length(a[i])>length(a[j]))
or (a[i]>a[j])and(length(a[i])=length(a[j]))
then
begin
s:=a[i];
a[i]:=a[j];
a[j]:=s;
end;
write(a[k]);
end.