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

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];

if (a[i]>0) then Pp:=Pp*a[i];

end;

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

writeln ('произв. отрицательных: ', Pm) ;

end.