Question

Дано натуральное число A (7<A<1963). Составить программу, которая с помощью функции Random создает A целых чисел, не превышающих по модулю 21, и выводит на экран сначала все числа, потом все числа в возрастающем порядке, далее все нечетные среди них числа в убывающем порядке.

Answer 1

PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var X := ArrRandom(ReadInteger('A='), -21, 21);

 X.Println;

 X.Sorted.Println;

 X.Where(t -> t.IsOdd).OrderDescending.Println

end.

A= 18

9 9 -10 21 -11 -13 -2 19 5 20 -5 20 11 -6 -2 -10 14 -12

-13 -12 -11 -10 -10 -6 -5 -2 -2 5 9 9 11 14 19 20 20 21

21 19 11 9 9 5 -5 -11 -13