Определить и вывести на экран сумму элементов в каждой строке матрицы - Turbo Pascal

Формулировка задачи:

1. В прямоугольной матрице размером Т*М, имеющей имя МАТР содержаться целые числа. Т - число строк, М - число столбцов. Ввести элементы матрицы с клавиатуры. Определить и вывести на экран сумму элементов в каждой строке. Определить строку с максимальным значением этой суммы и вывести ее номер на экран.

Решение задачи: «Определить и вывести на экран сумму элементов в каждой строке матрицы»

Листинг программы

Const  M = 10
          T = 10   {число строк и столбцов соответственно}
Var MATP : array[1..M,1..T] of integer;
                i,j,s,max,Nmax : integer;
Begin
   for i:=1 to M do
      for j;=1 to T do
         read(a[i,j);
   i:=1;   j:=1;   s:=0;
   repeat
      repeat
         s:=s+matp[i,j];
         j:=j+1
      until j > M;
      writeln(s);
      if s> max then begin
         max:=s;
         Nmax:=i
      end;
      s:=0;
      i:=i+1
   until i> T;
   writeln(Nmax)      
End.

Объяснение кода листинга программы

В данном коде происходит чтение матрицы из файла и вычисление суммы элементов в каждой строке.

Объявляются константы M и T, которые определяют количество строк и столбцов матрицы соответственно.
Объявляется переменная MATP, которая представляет собой матрицу целых чисел размером MxT.
Объявляются переменные i, j, s, max и Nmax, которые будут использоваться для чтения и обработки данных.
Запускается цикл for i:=1 до M do, который проходит по каждой строке матрицы.
Внутри цикла запускается вложенный цикл for j:=1 до T do, который проходит по каждому столбцу матрицы.
Внутри вложенного цикла считывается значение a[i,j] из файла.
Инициализируются переменные i, j и s.
Запускается цикл repeat-until, который повторяется до тех пор, пока j не превысит M.
Внутри цикла повторяется сумма s=s+matp[i,j], которая вычисляет сумму элементов текущей строки.
После окончания внутреннего цикла j увеличивается на 1.
Если сумма s превышает максимальное значение, то обновляется значение max и Nmax.
После окончания внешнего цикла i увеличивается на 1.
Выводится значение Nmax. В итоге, данный код выводит на экран максимальную сумму элементов строк матрицы.