Question

даны 5 чисел, найти сумму и кол-во положительных и произведение и кол-во отрицательных.

Answer 1

var

array a[1..5] of integer;

i,sum,pr,pol,otr:integer;

for i:=1 to 5 do 

readln(a[i]);

sum:=0;

pr:=1;

pol:=0;

otr:=0;

for i:=1 to 5 do begin

sum:=sum+a[i];

pr:=pr*a[i];

if a[i]>0 then

pol:=pol+1;

if a[i]<0 then

otr:=otr+1;

end;

writeln(sum, ' ', pol, ' ',pr, ' ',otr);

end;

 

Answer 2

Давайте предположим, что у нас есть следующие 5 чисел: 2, -3, 5, -1, 4.

Сначала найдем сумму этих чисел: 2 + (-3) + 5 + (-1) + 4 = 7

Теперь найдем количество положительных и отрицательных чисел: Положительные числа: 2, 5, 4 (3 числа) Отрицательные числа: -3, -1 (2 числа)

Теперь найдем произведение отрицательных чисел: (-3) * (-1) = 3

Итак, сумма этих чисел равна 7, количество положительных чисел - 3, количество отрицательных чисел - 2, а произведение отрицательных чисел равно 3.