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

Ввести массив из 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы