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
Какие из этих формул были использованы в приведенной программе, видно без объяснений.