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

Question

Задание 2. Заполните массив первыми N натуральными числами, начиная с X (значение X введите с клавиатуры). Например, заполнить массив 6 натуральными числами, начиная с 11. На экране (вывод) PasacalA[1]=11A[2]=12A[3]=13A[4]=14A[5]=15A[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.

---

Comments

Спасибо большое)

---

Пожалуйста