Составить программы на языке Турбо Паскаль.
1. Даны N чисел. Найти произведение четных и сумму нечетных.
2. Даны N чисел. Найти количество положительных и количество отричательных. Сравнить результаты.

1) var n, odd, even, i, a: integer;beginodd:=0;even:=1;writeln ('Введите число N');read(N);writeln('Введите N целых чисел');for i:=1 to N do beginread(a);if (a mod 2 = 0) then even:=even*aelse odd:=odd+a;end;writeln('Произведение чётных чисел равно ', even);writeln('Сумма нечётных чисел равна ', odd);end.2)var N, plus, minus, i: integer;a: real;beginplus:=0;minus:=0;writeln ('Введите число N');read(N);writeln('Введите N чисел');for i:=1 to N do beginread (a);if(a > 0) then plus:=plus+1;if (a < 0) then minus:=minus+1;end;writeln('Количество положительных чисел равно ', plus);writeln('Количество отрицательных чисел равно ', minus);if (plus<minus) then writeln ('Отрицательных больше чем положительных на ', minus-plus);if (plus>minus) then writeln ('Положительных больше чем отрицательных на ', plus-minus);if (plus=minus) then writeln ('Количество положительных равно количеству отрицательных');end.