сформировать массив элементы которого равны
a)13,33,
б) 17,16,
заранее ❤️​

begin

 var a := ArrGen(10, i -> 20 * i + 13);

 a.Println;

 var b := ArrGen(17, i -> 17 - i);

 b.Println

end.

Объяснение:

Тут главное найти формулу для общего члена.

а) 33 - 13 = 20; 53 - 33 = 20 ... все понятно, последующий элемент получается из предыдущего путем прибавления 20.

a[i+1] = a[i] +20 - это рекуррентная формула.

Можно также получить значение любого элемента как

a[i] = 20*i - 7, где i = 1, 2, 3,... 10 или

a[i] = 20*i + 13, где i = 0, 1, 2, ... 9

б) Здесь числа просто убывают от 17 до 1.

a[i+1] = a[i] - 1 - рекуррентная формула

a[i] = 18 - i, где i = 1, 2, 3, ... 17 или

a[i] = 17 - i, где i = 0, 1, 2, ... 16

Какие из этих формул были использованы в приведенной программе, видно без объяснений.