给出n个数,你要将这n个数从小到大排序输出 用pascal做
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/20 02:29:00
![给出n个数,你要将这n个数从小到大排序输出 用pascal做](/uploads/image/z/13371282-18-2.jpg?t=%E7%BB%99%E5%87%BAn%E4%B8%AA%E6%95%B0%2C%E4%BD%A0%E8%A6%81%E5%B0%86%E8%BF%99n%E4%B8%AA%E6%95%B0%E4%BB%8E%E5%B0%8F%E5%88%B0%E5%A4%A7%E6%8E%92%E5%BA%8F%E8%BE%93%E5%87%BA+%E7%94%A8pascal%E5%81%9A)
xN@Eeah\l:e͊2
P%"TKoψ@*3WZ륺Za/~Zj=WB]e3QEy۬Sك7֡NYE49SBcm pl̄4GlQO8!uFw@̐<:qzSwOi4؉@1_A$[me0S%9Yanz֤B{Y
给出n个数,你要将这n个数从小到大排序输出 用pascal做
给出n个数,你要将这n个数从小到大排序输出 用pascal做
给出n个数,你要将这n个数从小到大排序输出 用pascal做
var
a:array[1..1000] of integer;
n,i,j,t:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=n-1 downto i do
if a[j]>a[j+1] then
begin
t:=a[j];a[j]:=a[j+1];a[j+1]:=t;
end;
for i:=1 to n do
write(a[i],' ');
writeln
end.