题目描述
输入N个整数,将它们从小到大排序后输出。(N<100)
输入格式
第一行:
N
,表示元素的个数。
第二行:
N
个正整数,整数之间用一个空格隔开。
输出
输出共一行,为排序后的结果。行末不要出现多余空格。
样例输入
5
5 4 3 2 1
样例输出
1 2 3 4 5
program p4818;
var a:array[1..1000]of longint;i,j,n,t:longint;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for j:=1 to n-1 do
for i:=1 to n-j do
if a[i]<a[i+1] then
begin
t:=a[i];a[i]:=a[i+1];a[i+1]:=t;
end;
for i:=n downto 2 do
write(a[i],' ');
writeln(a[1]);
end.