Найдите произведение положительных элементов в массиве

Question

Информатика

Аргентея

8 мая, 09:16

Найдите произведение положительных элементов в массиве

+4

Ответы (1)

Знаете ответ?

Валерьян · Answer 1

Var

A:array[1 ... 33] of integer;

i:integer;

P:real;

Begin

Write ('Массив: ') ;

P:=1;

For i: = 1 to 33 do

Begin

A[i]:=random (21) - 10;

Write (A[i],' ') ;

if A[i]>0 then P:=P*A[i];

End;

WriteLn;

Write (P)

End.