Используя средства языка Паскаль, в одномерном массиве с 10 элементами Ai=ln((i^3+6i)/(3i+10)) подсчитать количество отрицательных элементов. Вывести массив и результат на экран

Предыдущий
вопрос Следующий
вопрос

program NegativeElementsCount;

var
A: array[1..10] of real;
i, count: integer;

begin
count := 0;

// Заполнение массива
for i := 1 to 10 do
begin
A[i] := ln((power(i, 3) + 6 i) / (3 i + 10));
if A[i] < 0 then
count := count + 1;
end;

// Вывод массива
writeln('Массив A:');
for i := 1 to 10 do
writeln('A[', i, '] = ', A[i]);

// Вывод количества отрицательных элементов
writeln('Количество отрицательных элементов: ', count);
end.