Question

Задание 2. Заполните массив первыми N натуральными числами, начиная с X (значение X введите с клавиатуры). Например, заполнить массив 6 натуральными числами, начиная с 11.


На экране (вывод) Pasacal



A[1]=11


A[2]=12


A[3]=13


A[4]=14


A[5]=15


A[6]=16

Answer 1

// PascalABC.NET

begin

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

 var a := ArrGen(n, x, p -> p + 1);

 for var i := 0 to a.High do

   $'A[{i+1}]={a[i]}'.Println

end.