Ввести массив из 50 элементов с помощью датчика случайных чисел. Найти отдельно...

Question

Ввести массив из 50 элементов с помощью датчика случайных чисел. Найти отдельно произведение положительных элементов и произведение отрицательных элементов.

Answer 1

Program mas;
const n=50;
var a: array [1..n] of integer;
i,Pp,Pm: integer;
begin
randomize;
Pp:=1;
Pm:=1;
for i:=1 to n do a[i]:=Random(100)-50;
for i:=1 to n do
begin
if(a[i]<0) then Pm:=Pm*a[i];<br>if(a[i]>0) then Pp:=Pp*a[i];
end;
writeln('произв. положительных: ',Pp);
writeln('произв. отрицательных: ',Pm);
end.