Question

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

Answer 1

===== 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.