Вспомним тему «передача информации». я думаю, ты справишься с этим ! 1. приемником информации может быть только человек. да нет 2. когда петя отдает команды собаке, он является источником информации. да нет 3. автоматический светофор на дороге - это приемник информации. да нет 4. костер может быть источником информации. да нет 5. в предложении «мама читает книгу» источником информации является книга. да нет 6. может ли пёс шарик быть источником информации для пети? да нет

1- нет 2 - да 3 - нет 4 - да 5 - да 6 - да

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.