Помогите составить программу!! ) В "Pascal ABC" В последовательности действительных чисел a1, а2, ..., аn есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов Р1 и произведе- ние п...
Помогите составить программу!! ) В "Pascal ABC"
В последовательности действительных чисел a1, а2, ..., аn есть только положительные и
отрицательные элементы. Вычислить произведение отрицательных элементов Р1 и произведе-
ние положительных элементов Р2. Сравнить модуль Р1 с модулем Р2 и указать, какое из
произведений по модулю больше.
Гость
Ответ(ы) на вопрос:
Гостьvar
p1, p2, buf: real;
n: byte;
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.
Не нашли ответ?
Похожие вопросы