4. В кодировке КОИ-8 каждый символ кодируется 8 битами. Лена написала текст (в нём нет лишних пробелов): «Ява, Куба, Лусон, Маражо, Суматра, Сулавеси, Эспаньола — острова». Ученица вычеркнула из списка название одного из островов. Заодно она вычеркнула ставшие лишними запятые и пробелы — два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 9 байтов меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название острова.

Суматра

Объяснение:

1 байт = 8 бит

Если размер оказался меньше на 9 байтов, значит вычеркнули 9 символов. Подбираем подходящий вариант, получается Суматра.

ответ: Суматра

Объяснение:

Размер предложения уменьшился на 9 байт=9*8=72 бит. Учитывая, что каждый символ закодирован 8 битами, то было удалено 72/8= 9 символов (вулючая пробелы и запятые). Таким словом является Суматра.

Const
  m1 = 20;
  n1 = 20;

var
  x: array[1..m1, 1..n1] of integer;
  i, j, m, n, mx, mn: integer;

begin
  Write('Введите через пробел число строк и столбцов матрицы: ');
  Readln(m, n);
  Randomize;
  writeln(#13#10, 'Исходная матрица');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      x[i, j] := Random(100) - 50;
      Write(x[i, j]:5)
    end;
    Writeln
  end;
  for i := 1 to m do
  begin
    mx := x[i, 1]; mn := mx;
    for j := 2 to n do
      if mx < x[i, j] then mx := x[i, j]
      else if mn > x[i, j] then mn := x[i, j];
    Writeln('В строке ', i, ' мin=', mn, ', max=', mx)
  end
end.

Тестовое решение:

Введите через пробел число строк и столбцов матрицы: 5 8

Исходная матрица
   14   35    4   16   44  -14   47   36
  -23  -40   16   43   40   48   21   46
   23   30  -18   25  -43   -5   -3   37
   24  -26    9  -37   36   23  -33   36
   30   46   17  -18  -34  -35   36   28
В строке 1 мin=-14, max=47
В строке 2 мin=-40, max=48
В строке 3 мin=-43, max=37
В строке 4 мin=-37, max=36
В строке 5 мin=-35, max=46

Если нужна матрица другого размера, то надо исправить значения n=5; m=6 на нужные.

const
  n=5;
  m=6;
var
  a:array[1..n,1..m] of integer;
  i,j,min,max:integer;
begin 
for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(20);
          write(a[i,j]:4);
          if j=1 then
            begin
              min:=a[i,1];
              max:=a[i,1];
            end
            else
              begin
                if a[i,j]<min then min:=a[i,j];
                if a[i,j]>max then max:=a[i,j];
              end;
        end;
       writeln('; min=',min,'; max=',max);
    end;
end.