Линейные темы

[Guest]

Вот дали задачку в универе ...помогите добрые люди

В последовательности действительных чисел a1, a2, …an есть только положительные и отрицательные элементы. Вычислить произведение отрицательных элементов P1 и произведение положительных элементов Р2. Сравнить модуль Р1 с модулем P2, указать, какое из произведений по модулю больше.


нужно решить на application console

заранее БОЛЬШОЕ СПАСИБО

 

[Vadik(R)]

думаю, в предыдущей теме видел мой ответ, так что если надо будет за деньги - то стучи в асю 34-98-34-73

 

[Shakmaev]

program Project2;

{$APPTYPE CONSOLE}

var
a : array [1..50] of integer;
i, n, p1, p2 : integer;
kon : string;
begin
randomize;
Writeln('Vvedite n');
readln;
p1 := 1;
p2 := 1;
for i := 1 to n do
begin
a := Round(Sin(Random(10))*-15);
if a < 0 then p1 := p1*a;
if a > 0 then p2 := p2*a;
write(a,' ');
end;
writeln('');
if abs(p1) > abs(p2) then Writeln('p1 bolshe')
else Writeln('p2 bolshe');
readln(kon);
{ TODO -oUser -cConsole Main : Insert code here }
end.