1)бабушка-приемник, письмо-источник
2)Иванова, объясняющая материал из истории)-источник, те, кто её слушает-приемник
3)Маша-приемник, телевизор-источник.
Ехе. игры text. текстовые bat. текстовые расширеные и музыкальные.
Мне интересно,а где рисунок?
<em>// PascalABC.NET 3.2, сборка 1382 от 06.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var c:=ArrRandom(ReadInteger('k='),1,99); c.Println;
var m:=c.Average;
Writeln('Среднее арфифметическое равно ',m);
Writeln('Кол-во элементов, больших ср.арифм: ',c.Where(x->x>m).Count)
end.
<u>Пример</u>
k= 15
74 9 96 97 77 41 51 29 24 26 27 53 5 25 76
Среднее арфифметическое равно 47.3333333333333
Кол-во элементов, больших ср.арифм: 7
4 бита для каждого столбца и еще столько же для каждой строки