Дано натуральное число A (7<A<1963). Составить программу, которая с помощью функции Random создает A целых чисел, не превышающих по модулю 21, и выводит на экран сначала все числа, потом все числа в возрастающем порядке, далее все нечетные среди них числа в убывающем порядке.
Ответы
Ответ дал:
0
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
Ответ дал:
0
ок
Ответ дал:
0
помоги мне еще
Ответ дал:
0
пж
Ответ дал:
0
ауу
Ответ дал:
0
ауууууууууууууууууууу
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад