Question

Найти произведение чисел : а)положительных б) отрицательных. Сделать в одной задаче

Answer 1

Ответ:

program z1;

var a,pp,po:real;

i:integer;

begin

pp:=1;

po:=1;

for i:=1 to 10 do

begin

write ('Введите число: ');

read (a);

if a>0 then pp:=pp*a;

if a<0 then po:=po*a

end;

writeln ('Произведение положительных: ',pp);

writeln ('Произведение отрицательных: ',po)

end.

Объяснение:

Начальные произведения равны 1

Цикл с параметром:

1) ввод числа

2) если число положительное, то умножаем число на произведение положительных чисел

3) если число отрицательное, то умножаем число на произведение отрицательных чисел

Вывод произведений

Answer 2

Давайте рассмотрим задачу, которая включает в себя и положительные, и отрицательные числа:

Задача: У вас есть набор чисел, как положительных, так и отрицательных. Найдите произведение положительных чисел и произведение отрицательных чисел в этом наборе.

Пример: Пусть у вас есть следующий набор чисел: {-2, 4, -3, 5, -1, 2}

Произведение положительных чисел: 4 * 5 * 2 = 40 Произведение отрицательных чисел: (-2) * (-3) * (-1) = -6

Ответ: Произведение положительных чисел равно 40, а произведение отрицательных чисел равно -6.