Составить программы на языке турбо паскаль. 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< minus) then writeln ('отрицательных больше чем положительных на ', minus-plus); if (plus> minus) then writeln ('положительных больше чем отрицательных на ', plus-minus); if (plus=minus) then writeln ('количество положительных равно количеству отрицательных'); end.

в байтах 8 бит