关闭

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

61人阅读 评论(0) 收藏 举报
分类:

题目描述

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:14984次
    • 积分:107
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档