program Matrix;
 
const
  N = 3;  // Количество строк
  M = 4;  // Количество столбцов
 
var
  a: array[1..N, 1..M] of Integer; // Матрица для хранения чисел
  amax: Integer;                       // Переменная для максимального элемента
  s: Integer;                      // Переменная для суммы всех элементов
  i, j: Integer;                             // Переменные для циклов
 
begin
 
  amax := -1000; // Инициализируем значением Integer
  s := 0;
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i, j]:= random(10);  // Ввод элементов матрицы
  // Нахождение максимального элемента и суммы всех чисел
      // Проверяем, является ли текущий элемент максимальным
      if a[i, j] > amax then
        amax := a[i, j];
      // Нахождение суммы, Добавляем текущий элемент к сумме
      s := s + a[i, j];
    // Вывод результата
write(a[i, j]:5); // Вывод элемента с форматированием (5 пробелов)
    end;
    writeln; // Переход на новую строку после каждой строки матрицы
 
  end;
  writeln('------------------------------------');
  writeln('Максимальный элемент в матрице= ', amax);
  writeln('Сумма всех чисел в матрице= ', s);
  readln; // Ожидание нажатия Enter для закрытия 
end.
 

cHJvZ3JhbSBNYXRyaXg7Cgpjb25zdAogIE4gPSAzOyAgLy8g0JrQvtC70LjRh9C10YHRgtCy0L4g0YHRgtGA0L7QugogIE0gPSA0OyAgLy8g0JrQvtC70LjRh9C10YHRgtCy0L4g0YHRgtC+0LvQsdGG0L7QsgoKdmFyCiAgYTogYXJyYXlbMS4uTiwgMS4uTV0gb2YgSW50ZWdlcjsgLy8g0JzQsNGC0YDQuNGG0LAg0LTQu9GPINGF0YDQsNC90LXQvdC40Y8g0YfQuNGB0LXQuwogIGFtYXg6IEludGVnZXI7ICAgICAgICAgICAgICAgICAgICAgICAvLyDQn9C10YDQtdC80LXQvdC90LDRjyDQtNC70Y8g0LzQsNC60YHQuNC80LDQu9GM0L3QvtCz0L4g0Y3Qu9C10LzQtdC90YLQsAogIHM6IEludGVnZXI7ICAgICAgICAgICAgICAgICAgICAgIC8vINCf0LXRgNC10LzQtdC90L3QsNGPINC00LvRjyDRgdGD0LzQvNGLINCy0YHQtdGFINGN0LvQtdC80LXQvdGC0L7QsgogIGksIGo6IEludGVnZXI7ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAvLyDQn9C10YDQtdC80LXQvdC90YvQtSDQtNC70Y8g0YbQuNC60LvQvtCyCgpiZWdpbgoKICBhbWF4IDo9IC0xMDAwOyAvLyDQmNC90LjRhtC40LDQu9C40LfQuNGA0YPQtdC8INC30L3QsNGH0LXQvdC40LXQvCBJbnRlZ2VyCiAgcyA6PSAwOwogIGZvciBpIDo9IDEgdG8gTiBkbwogIGJlZ2luCiAgICBmb3IgaiA6PSAxIHRvIE0gZG8KICAgIGJlZ2luCiAgICAgIGFbaSwgal06PSByYW5kb20oMTApOyAgLy8g0JLQstC+0LQg0Y3Qu9C10LzQtdC90YLQvtCyINC80LDRgtGA0LjRhtGLCiAgLy8g0J3QsNGF0L7QttC00LXQvdC40LUg0LzQsNC60YHQuNC80LDQu9GM0L3QvtCz0L4g0Y3Qu9C10LzQtdC90YLQsCDQuCDRgdGD0LzQvNGLINCy0YHQtdGFINGH0LjRgdC10LsKICAgICAgLy8g0J/RgNC+0LLQtdGA0Y/QtdC8LCDRj9Cy0LvRj9C10YLRgdGPINC70Lgg0YLQtdC60YPRidC40Lkg0Y3Qu9C10LzQtdC90YIg0LzQsNC60YHQuNC80LDQu9GM0L3Ri9C8CiAgICAgIGlmIGFbaSwgal0gPiBhbWF4IHRoZW4KICAgICAgICBhbWF4IDo9IGFbaSwgal07CiAgICAgIC8vINCd0LDRhdC+0LbQtNC10L3QuNC1INGB0YPQvNC80YssINCU0L7QsdCw0LLQu9GP0LXQvCDRgtC10LrRg9GJ0LjQuSDRjdC70LXQvNC10L3RgiDQuiDRgdGD0LzQvNC1CiAgICAgIHMgOj0gcyArIGFbaSwgal07CiAgICAvLyDQktGL0LLQvtC0INGA0LXQt9GD0LvRjNGC0LDRgtCwCndyaXRlKGFbaSwgal06NSk7IC8vINCS0YvQstC+0LQg0Y3Qu9C10LzQtdC90YLQsCDRgSDRhNC+0YDQvNCw0YLQuNGA0L7QstCw0L3QuNC10LwgKDUg0L/RgNC+0LHQtdC70L7QsikKICAgIGVuZDsKICAgIHdyaXRlbG47IC8vINCf0LXRgNC10YXQvtC0INC90LAg0L3QvtCy0YPRjiDRgdGC0YDQvtC60YMg0L/QvtGB0LvQtSDQutCw0LbQtNC+0Lkg0YHRgtGA0L7QutC4INC80LDRgtGA0LjRhtGLCgogIGVuZDsKICB3cml0ZWxuKCctLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0nKTsKICB3cml0ZWxuKCfQnNCw0LrRgdC40LzQsNC70YzQvdGL0Lkg0Y3Qu9C10LzQtdC90YIg0LIg0LzQsNGC0YDQuNGG0LU9ICcsIGFtYXgpOwogIHdyaXRlbG4oJ9Ch0YPQvNC80LAg0LLRgdC10YUg0YfQuNGB0LXQuyDQsiDQvNCw0YLRgNC40YbQtT0gJywgcyk7CiAgcmVhZGxuOyAvLyDQntC20LjQtNCw0L3QuNC1INC90LDQttCw0YLQuNGPIEVudGVyINC00LvRjyDQt9Cw0LrRgNGL0YLQuNGPIAplbmQuCg==