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

Question

Информатика

Хариесса

8 апреля, 02:49

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

+1

Ответы (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.