{* Сумма элементов в каждой строке *}

Unit SUMMASTROK;
Interface
Implementation
Begin
 writeln('В массиве, состоящем из n целых чисел, найти сумму элементов в каждой строке. ');
End.

Program summastrok;

Uses summastrok.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a : Array[1..50, 1..50] Of integer;
  i : integer;
  j : integer;
  n : integer;
  m : integer;
  S : integer;
Begin
  Write(‘сколько строк?’);
  Readln(m);
  Write(‘сколько столбцов?’);
  Readln(n);
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    Begin
      write(‘a[‘, i,’,’, j,’) = ’);
      readln (a[i, j]);
    End;
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
  Begin
    S := 0;
    For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
      S := S + a[i, j];
    Writeln(‘сумма элементов в ‘, i,’ строке равна  ‘, S);
  End;
  
End.