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

题目描述

有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.