4818:【一维数组】元素排序 分数: 2

题目描述

输入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.