Помогите составить программу!! ) В "Pascal ABC" В последовательности действительных чисел a1, а2, ..., аn есть только положитель
Помогите составить программу!! ) В "Pascal ABC"
В последовательности действительных чисел a1, а2, ..., аn есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов Р1 и произведе- ние положительных элементов Р2. Сравнить модуль Р1 с модулем Р2 и указать, какое из произведений по модулю больше.
begin readln(n); for i: byte := 1 to n do begin readln(buf); if (buf > 0) then if (p2 = 0) then p2 := buf else p2 := p2 * buf else if (p1 = 0) then p1 := buf else p1 := p1 * buf; end;
writeln('P1 = ', p1, #13, 'P2 = ', p2);
if (abs(p1) > abs(p2)) then writeln('|', p1, '| > |', p2, '|') else if (abs(p1) < abs(p2)) then writeln('|', p1, '| < |', p2, '|') else writeln('|', p1, '| = |', p2, '|') end.