(№ 1089) В одной из кодировок каждый символ кодируется 8 битами. Вова написал текст (в нём нет лишних пробелов):
«Белка, сурок, слон, медведь, газель, ягуар, крокодил,
аллигатор Дикие животные».
Затем он вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие
лишними запятые и пробелы — два пробела не должны идти подряд. При этом размер нового
предложения в данной кодировке оказался на 11 байт меньше, чем размер исходного
предложения. Напишите в ответе вычеркнутое название животного.

Главное понять что же делает эта программа. А она во-первых находит сколько единиц будет в двоичной записи числа x, для этого используется переменная L. И во-вторых находит количество цифр в двоичной записи числа x, для этого используется переменная M. Теперь мы можем переформулировать условие задачи так: найти максимальное число записываемое в двоичной системе 8-ю цифрами и содержащее в этой записи ровно 5 единиц. Очевидно максимальным из всех таких чисел будет такое, у которого в старших разрядах будут единицы, а в младших разрядах нули, т.е. число 11111000, в десятичной системе это число записывается как 248.
ответ: 248.

Const
   N = 3;
   M = 4;
Var
   Z:array[1..N,1..M] of integer;
   i,j,B:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        Z[i,j]:=random(21)-10;
        Write(Z[i,j]:3,' ')
        End;
    WriteLn;
    End;
WriteLn;
WriteLn('Второй и четвёртый столбец переставлены:');
For i:= 1 to N do
    Begin
    B:=Z[i,2];
    Z[i,2]:=Z[i,4];
    Z[i,4]:=B;
    End;
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Write(Z[i,j]:3,' ');
    WriteLn;
    End;
End.

Пример:
Исходный массив:
 -7   2  -2   3
  9  -6  -6   1
 -9  10  -9   3

Второй и четвёртый столбец переставлены:
 -7   3  -2   2
  9   1  -6  -6
 -9   3  -9  10