ChatGDZ.ru
ГДЗ
5 класс
6 класс
7 класс
8 класс
9 класс
10 класс
11 класс
Сервисы
Калькулятор
Перевод чисел из одной
системы в другую
Химические формулы
Степени двойки
Найти
Помогите Написать программу, подсчитывающую Модуль произведения отрицательных элементов массива.
ЧАТ-БОТ: ГДЗ с нейронкой
Помогите
Написать программу, подсчитывающую
Модуль произведения отрицательных элементов массива.
Сообщить об ошибке
Добавить своё решение
Ответы
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, затем проходиться по всем элементам массива и умножать их между собой, если они являются отрицательными числами. В конце программа выведет на экран модуль произведения отрицательных элементов.
0