---

Program summastrok;

Var a: array[1..50,1..50] of integer;

i, j, n, m,S: integer;

Begin

Write('сколько строк?'); Readln(m);

Write('сколько столбцов?"); Readln(n);

For i:=1 to m do For j:=1 to n do begin write('a[',i,',',')='); readln (a[i,j]); 
end;
For i:=1 to m do

begin

S / 0 :

j = - 1 n do

S:S+a[i,j];

Writeln('сумма элементов в строке равна 'S);

End.

end;