Пример систем, в которых должны быть выделены источник, приёмник, носитель и канал передачи информации.

Например ученик и источник инф. - учитель, приемник - ученик, носитель инф. - звуковая волна, а канал передачи - воздух. или компьютер и человек. источник - компьютер, приемник - ученик, носитель - на экране изображение(документ или что-то канал передачи - монитор.

Телевидение. источник: телебашня(останкинская, например) приёмник: антенна носитель: телекомпания канал передачи информации: волны

Прочитайте текст, определите тип текста, приведите 2 аргумента людей, которые по своей вине или в силу жизненных обстоятельств оказались бездомными и работающими, можно увидеть в любом городе. многие из них, оказавшись в трудной ситуации, устают от борьбы и оказываются брошенными в мир, в котором мало сочувствия и сострадания.Прочитайте текст, определите тип текста, приведите 2 аргумента людей, которые по своей вине или в силу жизненных обстоятельств оказались бездомными и работающими, можно увидеть в любом городе. многие из них, оказавшись в трудной ситуации, устают от борьбы и оказываются брошенными в мир, в котором мало сочувствия и сострадания.Прочитайте текст, определите тип текста, приведите 2 аргумента людей, которые по своей вине или в силу жизненных обстоятельств оказались бездомными и работающими, можно увидеть в любом городе. многие из них, оказавшись в трудной ситуации, устают от борьбы и оказываются брошенными в мир, в котором мало сочувствия и сострадания.

Код pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 const n=100; type arr=array[1..n] of integer; var   a: arr;   skv: real;   i,k,l: integer; procedure print(s: string; a: arr; l: integer); var   i: integer; begin   writeln(s);   write('[');   for i: =1 to l-1 do write(a[i],', ');   writeln(a[l],']'); end; procedure sort(var a: arr; l: integer); var   i,j,t: integer; begin   for i: =1 to l-1 do     for j: =i to l do       if a[j]< a[i] then begin         t: =a[j];         a[j]: =a[i];         a[i]: =t;       end; end; begin   repeat     write('количество элементов массива: ');     readln(k);   until (k> 0) and (k< 101);   write('введите массив: ');   for i: =1 to k do     repeat       write('a[',i,']=');       readln(a[i]);     until (a[i]> -11) and (a[i]< 11);   print('оригинальный массив: ',a,k);   l: =0; skv: =0.0;   for i: =1 to k do     if a[i]< 0 then begin       a[i]: =sqr(a[i]);       skv: =skv+a[i];       l: =l+1;     end else a[i]: =i;   print('полученный массив: ',a,k);   sort(a,k);   print('отсортированный массив: ',a,k);   writeln('среднее арифметическое квадратов отрицательных чисел: ',skv/l: 0: 4);   readln; end.