Дан алгоритм для Робота:

алг
нач
нц 43 раз
вправо; закрасить
кц
кон

Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на n клеток вправо и закрасит эти клетки.
Если левее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 43 клеток влево и закрасит эти клетки.
Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 43 клеток вправо и закрасит эти клетки.
Если правее Робота не встретится препятствий, то, выполнив приведённый выше алгоритм, он переместится на 43 клеток вправо.

Бит

Единицей измерения количества информации является бит – это наименьшая (элементарная) единица.

1бит – это количество информации, содержащейся в сообщении, которое вдвое уменьшает неопределенность знаний о чем-либо.

Байт

Байт – основная единица измерения количества информации.

Байтом называется последовательность из 8 битов.

Байт – довольно мелкая единица измерения информации. Например, 1 символ – это 1 байт.

Производные единицы измерения количества информации

1 байт=8 битов

1 килобайт (Кб)=1024 байта =210 байтов

1 мегабайт (Мб)=1024 килобайта =210 килобайтов=220 байтов

1 гигабайт (Гб)=1024 мегабайта =210 мегабайтов=230 байтов

1 терабайт (Гб)=1024 гигабайта =210 гигабайтов=240 байтов

Запомните, приставка КИЛО в информатике – это не 1000, а 1024, то есть 210 .

const

  n = 3;

  m = 4;

var

  matrix: array[1..n, 1..m] of integer;

  max, max_i, max_j, i, j: integer;

  sum: integer;

begin

  writeln('введите массив ',n, '*', m, ' элементов: ');

  for i : = 1 to n do

    for j : = 1 to m do

      read(matrix[i,j]);

  max : = matrix[1,1];

  for i : = 1 to n do

    for j : = 1 to m do

      if (max < matrix[i,j]) then

      begin

        max : = matrix[i,j];

        max_i : = i;

        max_j : = j;

      end;

  sum : = 0;

  for i : = 1 to n do

    sum : = sum + matrix[i, max_j];

  for j : = 1 to m do

    sum : = sum + matrix[max_i, j];

  matrix[max_i, max_j] : = sum;

  writeln('получившийся массив: ');

  for i : = 1 to n do

  begin

    for j : = 1 to m do

      write(matrix[i,j], ' ');

    writeln();

  end;

end.

пример:

введите массив 3*4 элементов:

1 2 3 4

55 6 7 8

9 10 11 12

получившийся массив:

1 2 3 4

141 6 7 8

9 10 11 12