помогите пожалуйста!!!!решить задачу на паскале...

var P1, P2 : Real; A : Real; Ni, N, K1, K2 : Word; begin P1 := 1; P2 := 1; K1 := 0; K2 :=0; Write('N = '); ReadLn(N); for Ni := 1 to N do begin Write('A(', Ni, ') = '); ReadLn(A); if A < 0 then begin Inc(K1); P1 := P1 * A; end else if A > 0 then begin Inc(K2); P2 := P2 * A; end; end; if K1 + K2 = 0 then WriteLn('Нет ни положительных ни отрицательных элементов. ') else if K1 = 0 then WriteLn('Отрицательных элементов нет. ') else if K2 = 0 then WriteLn('Положительных элементов нет. ') else begin A := Abs(P1) - Abs(P2); if A = 0 then WriteLn('Произвдения по модулю равны. ') else if A > 0 then WriteLn('Произведение отрицательных по модулю больше произведения положительных. ') else WriteLn('Произведение положительных по модулю больше произведения отрицательных. '); end; end.

чем помочь? пиши в агент или icq 452371863

Определяешь одномерный массив a до n элементов.
Задаешь все значения массива.
p1=1
p2=1
Цикл x от 0 до n do
if a[x]<0 then p1=p1*a[x]
else p2=p2*a[x]

p1=Модуль p1
if p1>p2 then write p1, больше
else write p2 больше

Задача туповатая, не сказано что с 0 делать в значениях массива.
На 0 множить нельзя.

кто задал эту задачу скажи пусть сам решит потом ответ скажешь