Общее количество рыб равно 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 бит
Составил код в Visual Studio, в итоге получилось 27
Если будет ошибка на строчке:
write('Введите A[' + IntToStr(i) + ',' + IntToStr(j) + ',' + IntToStr(k) + '] = ');
можешь просто убрать ее.
Она может не работать из за разных версий Pascal-я, т.к. не везде есть IntToStr.
--------------------------------------------------------------------
var
A: array [1..2,1..2,1..2] of longint;
i, j, k: byte;
sum: longint;
begin
for i := 1 to 2 do
for j := 1 to 2 do
for k := 1 to 2 do
begin
write('Введите A[' + IntToStr(i) + ',' + IntToStr(j) + ',' + IntToStr(k) + '] = ');
ReadLn(A[i, j, k]);
end;
sum := 0;
for i := 1 to 2 do
for j := 1 to 2 do
for k := 1 to 2 do
sum := sum + A[i, j, k];
writeln('Сумма всех элементов трехмерного массива = ', sum);
readln;
end.