PASCAL. Определить сумму элементов в каждой строке матрицы и рядом с каждой строкой вывести эту сумму. Как сделать вывод

Question

Кемпински Знаток (474), закрыт 13 лет назад

и рядом с каждой строкой вывести эту сумму. Как сделать вывод???У меня почему то получаются огромные числа(

Answer 1

for j := 1 to m do
begin
sum :=0;
for i := 1 to n do sum := sum+a[ i,j ];
writeln(j,' -- ',sum);
end;

Answer 2

так:

for i := 1 to n do
begin
s := 0;
for j := 1 to m do
begin
s := s + mas[ i, j ];
Write( mas[ i, j ]:5 );
end;
WriteLn(s:10);
end;