Количество информации, необходимое для различия двух равновероятных сообщений. 1) 1 бит 2) 1 байт 3) - id299493320210423 от pika9999777 23.04.2021 09:23

Question

Информатика: Количество информации, необходимое для различия двух равновероятных сообщений. 1) 1 бит 2) 1 байт 3) 2 бита 4) 2 байта 5) 7 бит

pika9999777 · Accepted Answer

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

begin

var n := 25;

var M := ArrRandom(n, -50, 50);

M.Println; // исходный массив

// пузырьковая сортировка

for var i := n - 2 downto 0 do

for var j := 0 to i do

if M[j] > M[j + 1] then Swap(M[j], M[j + 1]);

M.Println; // отсортированный массив

var C := ReadInteger('Значение удаляемого элемента:');

var p := M.BinarySearch(C);

if p >= 0 then

begin

M := (M?[:p] + M?[p + 1:]).ToArray;

M.Println; // результат

end

else Println('Элемент не найден')

end.

Количество информации, необходимое для различия двух равновероятных сообщений. 1) 1 бит 2) 1 байт 3) 2 бита 4) 2 байта 5) 7 бит