1) Заполните массив Q [7] случайными числами в интервале от 6 до 21. Вывод - в строку через пробел.
2) Заполните массив A первыми N натуральными числами, начиная с X (ввести X с клавиатуры). Вывод - в строку через пробел.

Ответ

Автор - BobbyFresnel

===== PascalABC.NET =====

begin

var Q := ArrRAndom(7, 6, 21);

Q.Println;

var (N, X) := ReadInteger2('Введите N и X:');

var A := ArrGen(N, i -> i + 1, X - 1);

A.Println

end.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.