Дано естественное число A (7amp;lt;Aamp;lt;1963). Составить программку, которая с подмогою функции

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

Задать свой вопрос
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 -gt; 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

Марина Гердо
выходит я забью то что ты написал и в конце end и все обязано получится
Хайбрахманов Мишаня
верно,
Alina Shalashilina
Да, только числа иные
Арсамиков Денис
Там же датчик случайных чисел
Виталик Сиворинов
jr
Александра Мочкасова
ок
Эмилия Ахмаева
помоги мне еще
Кирилл Иосилевич
пж
Слава Каритский
ауу
Альбина
ауууууууууууууууууууу
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт