Ответы на вопрос:
// pascalabc.net 3.2, сборка 1385 от 14.02.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n='),10,99); a.println; var b: =a.where((x,i)-> i.iseven).interleave(a.where((x,i)-> i.isodd).sorted); if a.count< > b.count then b: =b+a.last; b.println end. пример n= 11 89 78 46 90 11 45 56 94 41 37 77 89 37 46 45 11 78 56 90 41 94 77
Популярно: Информатика
-
vadimsheglov011.08.2020 16:12
-
gggggguuu13.07.2021 18:48
-
TheDan1lGorbunov20.08.2021 14:10
-
Alexgk1313.06.2020 18:42
-
KOnyaHA19.12.2022 17:49
-
DarkWolf1120.06.2020 11:35
-
123фидан32112.11.2021 12:28
-
650646321.07.2022 22:04
-
mugivara9820p09uk710.01.2023 04:59
-
sapunovegor2212.02.2021 00:46