Составить программы на языке Турбо Паскаль.

1. Даны N чисел. Найти произведение четных и сумму нечетных.

2. Даны N чисел. Найти количество положительных и количество отричательных. Сравнить результаты.

1) var n, odd, even, i, a: integer;

begin

odd:=0;

even:=1;

writeln ('Введите число N') ;

read (N) ;

writeln ('Введите N целых чисел') ;

for i:=1 to N do

begin

read (a) ;

if (a mod 2 = 0) then even:=even*a

else odd:=odd+a;

end;

writeln ('Произведение чётных чисел равно ', even) ;

writeln ('Сумма нечётных чисел равна ', odd) ;

end.

2) var N, plus, minus, i: integer;

a: real;

begin

plus:=0;

minus:=0;

writeln ('Введите число N') ;

read (N) ;

writeln ('Введите N чисел') ;

for i:=1 to N do

begin

read (a) ;

if (a > 0) then plus:=plus+1;

if (a < 0) then minus:=minus+1;

end;

writeln ('Количество положительных чисел равно ', plus) ;

writeln ('Количество отрицательных чисел равно ', minus) ;

if (plus
if (plus>minus) then writeln ('Положительных больше чем отрицательных на ', plus-minus) ;

if (plus=minus) then writeln ('Количество положительных равно количеству отрицательных') ;

end.