Question

Сформируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу:
1-й равен текущему индексу, увеличенному на 2;

2-й равен целой части от деления случайного числа на предыдущий элемент;

3-й равен сумме двух предыдущих элементов.

​

Answer 1

===== PascalABC.NET =====

begin

 var a: array[1..9] of integer;

 for var i := 0 to 2 do

 begin

   var j := 3 * i + 1;

   a[j] := j + 2;

   a[j + 1] := Random(50) mod a[j];

   a[j + 2] := a[j] + a[ j + 1];

   Print(a[j], a[j + 1], a[j + 2])

 end

end.