Здравствуйте, помогите, пожалуйста, составить программу. Задача-Сформулируйте и выведите на экран массив из 9 элементов, каждые три последовательныхэлемента которого составлены по следующему правилу: 1-й равен квадрату текущего индекса, увеличенному на 5; 2-й равен целой части квадратного корня из предыдущего элемента; 3-й равен целой части от деления двух предыдущих элементов.
Var i : integer; aa : array[1..9] of integer; begin { высчитываем элементы массива } for i := 1 to 9 do if i mod 3 = 1 then aa := (i + 5) * (i + 5) else if i mod 3 = 2 then aa := round(sqrt(aa[i-1])) else aa := aa[i-1] div aa[i-2]; { выводим значения на экран } for i := 1 to 9 do write(aa, ' '); end.
