Помогите Написать программу, подсчитывающую Модуль произведения отрицательных элементов массива.

ЧАТ-БОТ: ГДЗ с нейронкой
Помогите
Написать программу, подсчитывающую
Модуль произведения отрицательных элементов массива.
Ответы 1
Решение №1
Pascal:
program countNegativeProduct;
var
arr: array [1..10] of integer; // задаем массив из 10 элементов
i, negProd: integer; // negProd - переменная для хранения произведения отрицательных элементов
begin
negProd := 1; // Инициализируем произведение как 1

// Заполняем массив случайными значениями (для примера)
for i := 1 to 10 do begin
arr := Random(21) - 10; // значения от -10 до 10
writeln('arr[', i, ']: ', arr); // выведем элементы массива для проверки
end;

// Подсчет произведения отрицательных элементов
for i := 1 to 10 do begin
if arr < 0 then begin
negProd := negProd * abs(arr
); // берем модуль отрицательного элемента и умножаем его на произведение
end;
end;

writeln('Модуль произведения отрицательных элементов: ', negProd); // выводим результат
end.

Программа будет заполнять массив случайными значениями от -10 до 10, затем проходиться по всем элементам массива и умножать их между собой, если они являются отрицательными числами. В конце программа выведет на экран модуль произведения отрицательных элементов.