Виявіть помилки в записі індетифікаторів змінних: ac_1, 2ba, x-1, -z_1​

26 букв и 10 цифр составляют алфавит мощностью 36 знаков. Если кодировать их числами от 0 до 35, а 2⁵ < 35 < 2⁶, то для одного знака потребуется до 6 бит. По условию "Каждый символ кодируется одинаковым и минимально возможным количеством бит", поэтому принимаем размер 6 бит. Длина номера 7 символов и суммарно они займут 7×6 = 42 бита. Но по условию номер должен занимать целое число байт. В байте 8 бит, тогда для номера нужно отвести 42/8 = 6 байт с округлением до целых в большую сторону. 20 номеров потребуют для хранения 6×20 = 120 байт.

ответ: 120 байт

Const
  nn = 20;

var
  a: array[1..nn, 1..nn] of integer;
  i, j, n, k: integer;

begin
  Write('Введите число строк (столбцов) матрицы: '); Readln(n);
  Randomize;
  Writeln('Исходная матрица');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
  end;
  Writeln('Количество отрицательных элементов по столбцам');
  for j := 1 to n do
  begin
    k := 0;
    for i := 1 to n do
      if a[i, j] < 0 then Inc(k);
    Write(k:4)
  end;
  Writeln
end.

Тестовое решение:
Введите число строк (столбцов) матрицы: 10
Исходная матрица
  22  12 -15 -42  29  49  26 -26  -3  -5
  18  45   2   2  -3 -28  20 -15 -16  29
   7  48 -13 -33  38 -22  39  28  -6 -50
  23  37 -33  50   7  27  39  -8 -35  43
   1  17 -11 -29 -35  -1 -27  37 -25 -36
   8 -49 -17  34 -27  24 -26 -32 -30   0
 -41  48  30  -3  23  31  28   3  45  20
 -16 -23 -30  -8 -23  40   9 -35 -48 -12
 -45 -49   2 -20  -7  21   4 -16  26  33
   3  21 -29  15  33   4  38  43  -1 -15
Количество отрицательных элементов по столбцам
   3   3   7   6   5   3   2   6   8   5