Вмассиве действительных чисел размерностью 20 есть только отрицательные и положительные элементы. вычислить произведение отрицательных элементов p1 и произведение положительных элементов p2. сравнить модуль p2 с модулем p1 и вывести наибольшее произведение.

219

251

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

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

vikapataeva

Информатика

4,7(43 оценок)

Const n=20; var a: array[1..n] of real; i: integer; p1,p2: real; begin writeln('исходный массив: '); for i: =1 to n do begin a[i]: =20*random-10; write(a[i]: 6: 2); end; writeln; p1: =1; p2: =1; for i: =1 to n do if a[i]> 0 then p1: =p1*a[i] else p2: =p2*a[i]; if abs(p1)> abs(p2) then writeln('p1 = ',p1: 5: 2) else writeln('p2 =2',p2: 5: 2); end. пример (для 10 элементов): исходный массив: 2.51 -4.92 -0.31 6.88 2.54 -3.91 -0.29 5.18 3.91 -5.67 p1 = 887.53