Определите источник и приемник информации, а так же характер (односторонний, двухсторонний) передачи информации в следующих ситуациях: 1) завуч вывешивает листочек с изменениями в расписании уроков 2) диспетчер сообщает, что автобусный рейс отменяется 3) вывешен знак, запрещающий проезд по улице 4) мальчик получил пригласительный билет на елку

1) источник- лист с расписанием(одностороние) 2) источник-диспечер(одностороние) 3)- 4)-

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходная матрица ***');   var a: =matrrandom(4,4,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.elementsbyrow.where(t-> t.between(-10,5) and t.iseven);   writeln('на интервале [-10; 5] четных элементов ',s.count,           ', их сумма равна ',s.sum);   var vc: =a.cols.select(t-> t.sum);   write('вектор сумм по столбцам: '); vc.println;   writeln('среднее арифметическое положительных равно: ',           a.elementsbyrow.where(t-> t> 0).average);   writeln('в третьем столбце сумма элементов равна ',           a.col(2).sum,', произведение равно ',           a.col(2).aggregate(1,(p,q)-> p*q)) end. пример *** исходная матрица ***   27 -87  73  -6   48 -50  75 -32     4  92 -84  85   27    4  31 -63 на интервале [-10; 5] четных элементов 3, их сумма равна 2 вектор сумм по столбцам: 106 -41 95 -16 среднее арифметическое положительных равно: 46.6 в третьем столбце сумма элементов равна 95, произведение равно -14256900

Var   a: array [1..4, 1..4] of integer;   b: array [1..4] of integer;   i, j, count, countar: byte;   arithmean: real;   sum, mult, sumthird: integer; begin mult : = 1; randomize; writeln(' *** исходный массив ***'); for i : = 1 to 4 do begin   for j : = 1 to 4 do   begin       //случайные значение в диапазоне [-30; 30]       a[i, j] : = random(61)-30;       //сумма и количество четных в диапазоне [-10..5]       if (a[i, j] mod 2 = 0) and ((a[i, j] > = -10) and (a[i, j] < = 5)) then       begin           sum : = sum + a[i, j];           count : = count + 1;       end;       //количество и сумма положительных для среднего арифметического       if a[i, j] > 0 then       begin           countar : = countar + 1;           arithmean : = arithmean + a[i, j];       end;       //произведение и сумма 3-его столбца       if j = 3 then       begin           mult : = mult * a[i, j];           sumthird : = sumthird + a[i, j];       end;       write(a[i, j]: 5);   end; writeln; end; writeln('количество четных [-10..5] = ', count); writeln('сумма четных [-10..5] = ', sum); writeln('среднее арифметическое = ', (arithmean/countar): 0: 2); writeln('произведение в 3 столбце = ', mult); writeln('сумма в 3 столбце = ', sumthird); //получение вектора for j : = 1 to 4 do begin sum : = 0;   for i : = 1 to 4 do       sum : = sum + a[i, j];   b[j] : = sum;   end; writeln('вектор: '); for i : = 1 to 4 do   writeln(b[i]: 5);   end.