宇宙总统

最新推荐文章于 2022-04-06 17:40:02 发布

原创最新推荐文章于 2022-04-06 17:40:02 发布 · 246 阅读

0 ·

CC 4.0 BY-SA版权

洛谷题专栏收录该内容

24 篇文章

订阅专栏

本文展示了一个使用Pascal语言实现的简单排序算法案例。该算法通过比较字符串长度及字典顺序来确定数组中元素的位置，实现了对字符串数组的一次交换排序。此方法适用于初学者了解基本的排序逻辑。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
a:array[1..20] of string;
x:string;
i,n,s:integer;
begin
readln(n);
for i:=1 to n do readln(a[i]);
s:=1;
for i:=2 to n do
if (length(a[i])>length(a[1]))or(length(a[i])=length(a[1]))and(a[i]>a[1]) then
begin
s:=i;
x:=a[1];
a[1]:=a[i];
a[i]:=x;
end;
writeln(s);
writeln(a[1]);
end.