Question

Напишите программу, реализующую заполнение 25 числами массива B по формуле и вывод их на экран в строку по формату: целая часть – 9 позиций, дробная – 3 позиции. Формула: элемент массива равен сумме двух предыдущих элементов, деленной на номер текущего элемента, т.е. третий элемент равен (первому + второму)/3(индекс третьего) и т.д. Значения первого и второго элемента: B[1]:=3; B[2]:=6;

Answer 1

Var B: array[1..25] of real; sr:real;i,n: integer;beginB[1]:=3; B[2]:=6; writeln('Исходный массив');for i:=3 to 25 do beginB[i]:=(B[i-2]+B[i-1])/i;write(B[i]:11:3);end;end.