Question

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

Answer 1

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

Answer 2

Давайте решим эту задачу шаг за шагом. Пусть у нас есть массив действительных чисел A размерностью 20. Давайте обозначим его элементы через A[i], где i - индекс элемента в массиве (от 0 до 19).

1. Найдем произведение отрицательных элементов P1:

\[ P1 = A[0] \times A[1] \times \ldots \times A[i] \times \ldots \times A[19] \]

2. Найдем произведение положительных элементов P2:

\[ P2 = A[0] \times A[1] \times \ldots \times A[i] \times \ldots \times A[19] \]

3. Сравним модуль P2 с модулем P1:

\[ |P1| \text{ и } |P2| \]

4. Выведем наибольшее из модулей:

\[ \max(|P1|, |P2|) \]

Теперь давайте реализуем этот алгоритм на псевдокоде:

P1 = 1
P2 = 1

for i = 0 to 19:
    if A[i] < 0:
        P1 = P1 * A[i]
    else:
        P2 = P2 * A[i]

if abs(P1) > abs(P2):
    print("Максимальное произведение:", abs(P1))
else:
    print("Максимальное произведение:", abs(P2))

Этот псевдокод вычисляет произведения отрицательных и положительных элементов массива и затем сравнивает их модули, выводя наибольшее из них.