Пытаемся подобрать код, начиная с наименьшей длины.
Коды длины 1.
Е = 0: нет однозначности, 0101 = ОО = ЕТ
Е = 1: нет однозначности, 101 = Т = ЕО
Коды длины 2.
Е = 00: ок, получился префиксный код, про который известно, что он допускает однозначное декодирование.
Е = 01: совпадает с О
Е = 10: нет однозначности, 101101 = ТТ = ЕЛО
Е = 11: совпадает с Л.
Таким образом, есть единственный ответ 00.
Сортировка массива по убыванию
Объяснение:
type
massiv = array [1..10] of integer;
var
mass : massiv;
i , j , n , b: integer;
begin
randomize;
write('Введите длину массива : ');readln(n);
for i:=1 to n do
begin
mass[i] := random(10);
write(mass[i], ' ');
end;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (mass[j] < mass[j+1]) then
begin
b := mass[j];
mass[j] := mass[j+1];
mass[j+1] := b;
end;
end;
writeln;
for i:=1 to n do
write(mass[i], ' ');
readln;
end.
// PascalABC.NET 3.4, сборка 1767 от 27.08.2018
// Внимание! Если программа не работает, обновите версию!
uses GraphABC;
procedure ColorPrint(a: array[,] of integer);
begin
var s := a.ElementsByRow;
var (min, max) := (s.Min, s.Max);
var DefColor := FontColor;
font.Name := 'Courier New';
for var i := 0 to a.RowCount - 1 do
begin
for var j := 0 to a.ColCount - 1 do
if a[i, j] = min then
begin
Font.Color := clRed;
Write(a[i, j]:4);
Font.Color := DefColor
end
else
if a[i, j] = max then
begin
Font.Color := clGreen;
Write(a[i, j]:4);
Font.Color := DefColor
end
else Write(a[i, j]:4);
Writeln
end
end;
begin
var a := MatrRandom(5, 5, -10, 10);
ColorPrint(a)
end.
Ответ:
я думаю что 28
Объяснение:
12 мы исключаем и 20 и 36