в кинозале всего 16×32=512 мест. Сообщение о купленном билете однозначно определяет выбор одного из этих мест. Из уравнения 2 i = 512=29получаем: i=9 бит. Но эту же задачу можно решать иначе. Сообщение о номере ряда несет 4 бита информации, т.к. 24=16. Сообщение о номере места несет 5 бит информации, т.к. 25=32. В целом сообщение про ряд и место несет: 4+5=9 бит информации. Данный пример иллюстрирует выполнение закона активности информации (правило сложения): количество информации в сообщении одновременно о нескольких результатах независимых друг от друга событий равно сумме количеств информации о каждом событии отдельно.
var A: array [1..5,1..5] of integer;
var i,j: integer;
var s: real;
begin
s:=1;
randomize();
For i:= 1 to 5 do
begin
For j:= 1 to 5 do
begin
A[i,j]:=random(66)+15;
if (A[i,j] mod 2 <>0) then s:=s*A[i,j];
write(A[i,j]:4);
end;
writeln();
end;
writeln('Произведение нечётных элементов массива: ',s);
end.