Для решения задачи используем формулу I =
Вероятность взять перец = 8/16 = 1/2. Количество информации в сообщении о том, что взят перец I1 = log(2)[1/(1/2)] = log(2)2 = 1 бит
Вероятность взять огурец = 4/16 = 1/4. Количество информации в сообщении о том, что взят огурец I2 = log(2)[1/(1/4)] = log(2)4 = 2 бита
Вероятность взять баклажан = 2/16 = 1/8. Количество информации в сообщении о том, что взят баклажан I3 = log(2)[1/(1/8)] = log(2)8 = 3 бита
Для редиса I4 = I3 = 3 бита
Repeat
<тело цикла>
until <условие>
это в паскале
Шестиклассники Аня, Боря, Вася, Галя, Даша и Иван получили флешки на 1,2,4,8,16,32 Гб. Выясните, кто из ребчт получили флешку са
alexandro76 [1]
У Ивана самая большая(32Гб), а у Гали самая маленькая(1Гб).
While (условие) do
операция цикла
Program znanija_com;
const
n = 5;
m = 5;
rnd = 9;
type
tArray = array[1..n, 1..m] of integer;
var
arr : tArray;
i,j, sum_ch, sum_nch, sum_diag, max_num, max_index_1, max_index_2 : integer;
begin
randomize;
writeln ('Исходная матрица:');
for i:=1 to n do begin
for j:=1 to m do begin
arr[i,j] := random(rnd);
if arr[i,j] mod 2 = 0 then sum_ch := sum_ch + 1
else sum_nch := sum_nch + 1;
write(arr[i, j], ' ');
end;
writeln();
end;
for i:=1 to n do
sum_diag := sum_diag + arr[i,i];
max_num := arr[1,1];
max_index_1 := 1;
max_index_2 := 1;
for i:=1 to n do begin
for j:=1 to m do begin
if arr[i, j] > max_num then begin
max_num := arr[i, j];
max_index_1 := i;
max_index_2 := j;
end;
end;
end;
writeln('Колечество четных элементов равно ', sum_ch);
writeln('Колечество нечетных элементов равно ', sum_nch);
writeln('Сумма главной диаганили равна ', sum_diag);
writeln('Максимальное число равно ', max_num, ' Находится [',max_index_1, ', ', max_index_2, ']');
readln();
end.