给出n个数,你要将这n个数从小到大排序输出输入第一行,一个整数n 接下来n行,每行一个整数.输出从小到大输出这n个数,每个数占一行要用free Pascal做,我是个新手,最好加上注释!

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/06 01:58:39
给出n个数,你要将这n个数从小到大排序输出输入第一行,一个整数n 接下来n行,每行一个整数.输出从小到大输出这n个数,每个数占一行要用free Pascal做,我是个新手,最好加上注释!
xRMO@+IkillHAAP &V!3ݥ w[ h.L޼7&Zј;6]z?U[kӺGX댎9xN}X %B+`Z?l;yZfѐᳱBU-ަ= aihFbSv=+5%v[6^zƚ!/ qnx՛ECOI )ED" ,"ɐ%KK̠Ê -ވM plA^pb0e"m)s!eּ̛eiM% ]7# JRdT݉#fX }J`}5 x.x!'?7

给出n个数,你要将这n个数从小到大排序输出输入第一行,一个整数n 接下来n行,每行一个整数.输出从小到大输出这n个数,每个数占一行要用free Pascal做,我是个新手,最好加上注释!
给出n个数,你要将这n个数从小到大排序输出
输入第一行,一个整数n 接下来n行,每行一个整数.输出从小到大输出这n个数,每个数占一行
要用free Pascal做,我是个新手,最好加上注释!

给出n个数,你要将这n个数从小到大排序输出输入第一行,一个整数n 接下来n行,每行一个整数.输出从小到大输出这n个数,每个数占一行要用free 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.