关闭

2015年01月25日

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

program p26754;
var a:array[1..32767] of integer;
    i,n,t,j:integer;
begin
 i:=0;
 while not eoln do
  begin
   i:=i+1;
   read(a[i]);
  end;
  readln;
  while not eoln do
  begin
   i:=i+1;
   read(a[i]);
  end;
  n:=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网站的观点或立场
    个人资料
    • 访问:16147次
    • 积分:118
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档