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

239

298

Посмотреть ответы 2

Ответы на вопрос:

marinkaa5

Информатика

4,8(73 оценок)

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.