===== 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.
![1) заполните массив q [7] случайными числами в интервале от 6 до 21. вывод - в строку через пробел.](/tpl/images/1045/6041/1bc2e.jpg)
