Ввести массив из 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 beginif(a[i]<0) then Pm:=Pm*a[i];if(a[i]>0) then Pp:=Pp*a[i];end;writeln('произв. положительных: ',Pp);writeln('произв. отрицательных: ',Pm);end.