<span>Const n=5;
Var B:array[1..n,1..n] of integer;
i,j:byte;
pr:real;
Begin
For i:=1 to n do
Begin
For j:=1 to n do
Begin
B[i,j]:=random(10);
write(B[i,j]:3);
End;
writeln;
End;
pr:=1;
For i:=1 to n do
For j:=1 to n do
if i<j then
pr:=pr*B[i,j]; writeln('Произведение элементов = ',pr);
readln;
End.</span>
16=2 в 4 степени, значит в сообщении о белом кар. -4 бита
24 округлям до 32 (в бол. сторону)=5 бит
Компьютер-это електронный прибор назначен для "опрацювання даних"разного типа
Общее количество рыб равно 12500+25000+6250+6250=50 000
Вероятность вытащить окуня составляет 12500/50000=1/4.
Вероятность вытащить пескаря составляет 25000/50000=1/2.
Вероятность вытащить карася составляет 6250/50000=1/8.
Вероятность вытащить щуку составляет 6250/50000=1/8.
События имеют разную вероятность, поэтому количество информации определяем по формуле Шеннона
<em><u>Ответ:</u></em> 1.75 бит