Free Pascal编程!!!

发布网友发布时间：2024-09-28 05:23

共1个回答

热心网友时间：2024-10-20 18:15

var a:array[1..20] of integer;
b,c,d,n:integer;

begin
read(n);
for b:=1 to n do
read(a[b]);
for b:=1 to n do
for c:=b+1 to n do
if a[c]<a[b] then
begin
d:=a[c];
a[c]:=a[b];
a[b]:=d;
end;
for b:=1 to n do
write(a[b]:6);
end.

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com