2015年01月25日

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.

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jing1223639316/article/details/46826601
个人分类: 编程
上一篇26751:线性链表的建立及逆序输出 分数: 100
下一篇2015年01月25日
想对作者说点什么? 我来说一句

AS3.Sorcerer.3.08.Cracked

2015年03月25日 5.83MB 下载

firebug 火狐 简体中文 64位 x64 nightly

2015年03月25日 40.68MB 下载

2006年英语专四真题0104

2009年05月28日 72KB 下载

layout60最新汉化

2013年02月16日 954KB 下载

excel服务器

2015年06月17日 2.62MB 下载

DPF.iOS.Native.Components.v9.1.0

2015年01月13日 5.01MB 下载

没有更多推荐了,返回首页

关闭
关闭