作业帮 > 综合 > 作业

给出n个数,你要将这n个数从小到大排序输出 用pascal做

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/16 16:40:00
给出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.
再问: 不行