Двумерный массив Pascal

[Vladimir12134]

Имеется массив A измеримостью m на n. Найти строчку с наибольшей суммой элементов. Массив, номер строки и значение суммы выводятся на экран.
И если не затрудит,обьяснить в коде,что и как работает,буду очень благодарен!

[macomics]

fpc 3.2.2

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.

$ ./project1
Введите количество строк (m): 5
Введите количество столбцов (n): 4
Вводим элементы массива, в темпе и без дополнительных подсказок:
1
2
3
4
5
6
7
8
9
0
1
2
3
4
5
6
7
8
9
0
Матрица поиска
1, 2, 3, 4
5, 6, 7, 8
9, 0, 1, 2
3, 4, 5, 6
7, 8, 9, 0
Номер строки с максимальной суммой элементов 1. Она равна 26

Вот тут можно посмотреть как она работает.

[Valick]

macomics, сумма элементов первой строки равна 10 :D

[macomics]

Сообщение от Valick

macomics, сумма элементов первой строки равна 10 :D

Это динамические массивы. Они нумеруются с 0. Строка с номером 1 это 5+6+7+8=26.

[Valick]

Внутренние индексы массива никак не должны быть связаны с представлением.
Представление должно быть наитивным.
Если написать что "первая строка это строка 0, это конечно многое объяснит, но гораздо правильнее было бы утверждение "первая строка это строка 1" (и это не требует дополнительных подсказок)