Compiler Explorer

Source code

program project1;

uses SysUtils;

var arr: array of array of LongInt; { Двумерный динамический массив }
    sum: LongInt; { Здесь посчитаем сумму }
    max: LongInt; { Здесь сохраним максимальное значение суммы }
    ind: LongInt; { Здесь сохраним индекс строки с максимальной суммой }
    i,j: LongInt; { Индексные переменные для циклов }

BEGIN
   Write('Введите количество строк (m): '); ReadLn(i);
   Write('Введите количество столбцов (n): '); ReadLn(j);
   SetLength(arr, i, j); { Определить размерность массива }
   WriteLn('Вводим элементы массива, в темпе и без дополнительных подсказок:');
   for i := Low(arr) to High(arr) do { Цикл по строкам }
      for j := Low(arr[i]) to High(arr[i]) do { Цикл по столбцам }
         ReadLn(arr[i, j]); { Считываем элемент i, j }
   ind := Low(arr); max := 0; { Считаем сумму элементов первой строки (инициализация значений) }
   for j := Low(arr[ind]) to High(arr[ind]) do { Цикл по строкам }
      inc(max, arr[ind, j]); { Суммируем элементы }
   for i := ind + 1 to High(arr) do begin { Цикл по строкам }
      sum := 0; { Инициализация суммы для i-ой строки }
      for j := Low(arr[i]) to High(arr[i]) do { Цикл по столбцам }
         inc(sum, arr[i, j]); { Суммируем элементы }
      if sum > max then begin { Находим максимум }
         ind := i; max := sum; { Сохраняем параметры строки с новым максимумом }
      end;
   end;
   WriteLn('Матрица поиска');
   for i := Low(arr) to High(arr) do begin { Цикл по строкам }
      for j := Low(arr[i]) to High(arr[i]) - 1 do { Цикл по столбцам }
         Write(arr[i, j], ', '); { Печатаем значения }
      WriteLn(arr[i, High(arr[i])]); { Завершаем печать строки }
   end;
   WriteLn('Номер строки с максимальной суммой элементов ', ind, '. Она равна ', max);
END.