关闭

4820:【一维数组】排序后的奇数项 分数:

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

题目描述

有20个正整数,将它们从小到大排序,输出其中的奇数项。


输入格式

一行,有20个正整数,整数之间用空格隔开。


输出

一行,排序后奇数项的值。行末不要出现多余空格。


样例输入

20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1


样例输出

1 3 5 7 9 11 13 15 17 19


提示[+]

*** 提示已隐藏,点击上方 [+] 可显示 ***


 

提示[-]


 


注意:不是奇数,而是奇数项的值。

program p4820;
var a,b,c:array[1..20]of longint;t,i,j,k,l:longint;
begin
 for i:=1 to 20 do
 read(a[i]);
  for j:=1 to 19 do
   for i:=1 to 20-j do
    if a[i]<a[i+1] then
     begin
      t:=a[i];a[i]:=a[i+1];a[i+1]:=t;
     end;
  writeln(a[20],' ',a[18],' ',a[16],' ',a[14],' ',a[12],' ',a[10],' ',a[8],' ',a[6],' ',a[4],' ',a[2]);
end.

0
0

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