1. В последовательности чисел подсчитать произведение чисел, кратных 3.

2. В последовательности чисел сравнить, что больше сумма положительных или про-изведение отрицательных.

3. В последовательности чисел определить предпоследнее отрицательное число. (При решении введите дополнительную переменную для хранения предпоследнего отрицательного числа).

1)

var n, i, p:longint; a:array[1 ... 100]of longint;

begin

read (n) ; p:=1;

for i:=1 to n do

read (a[i]) ;

for i:=1 to n do

if a[i] mod 3=0 then p:=p*a[i];

writeln (p) ;

end.

2)

var n, i, s, p:longint; a:array[1 ... 100]of longint;

begin

read (n) ;

p:=1; s:=0;

for i:=1 to n do

read (a[i]) ;

for i:=1 to n do

if a[i]>0 then s:=s+a[i];

for i:=1 to n do

if a[i]<0 then p:=p*a[i];

if p>s then writeln ('proizvedenie')

else if p
else writeln ('ravni') ;

end.

3)

var n, f, i, o:longint; a:array[1 ... 100]of longint;

begin

read (n) ; f:=0;

for i:=1 to n do

read (a[i]) ;

for i:=n downto 1 do begin

if a[i]<0 then f:=f+1;

if f=2 then begin o:=a[i]; break; end;

end;

writeln (o) ;

end.