<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
end.
<u>Пример</u>
Количество строк и столбцов в массиве: 7 8
*** Исходный массив [7,8] ***
88 9 -44 13 81 97 -65 -20
16 -37 -33 -34 -69 -64 12 -58
-36 -80 -99 61 -59 -86 -18 83
-77 -1 85 -41 -49 -12 43 84
-64 32 36 -85 -18 -42 49 -6
71 -13 28 33 55 -94 12 13
5 -10 -5 -27 23 -37 -48 74
--------------------------------
1) N1 = 2^i1
16 = 2^i1
i1 = 4 бита - глубина кодирования 1 символа в племени Мульти.
120 * 4 = 480 бит информационный объем письма вождя племени Мульти.
2) N2 = 2^i2
32 = 2^i2
i2 = 5 бит глубина кодирования 1 символа Пульти.
96 * 5 = 480 бит информационный объем письма вождя племени Пульти
Информационные объемы сообщений равны.