Решаем задачи Абрамян на Паскале. Matrix19

Matrix19. Дана матрица размера $$M \times N$$. Для каждой строки матрицы найти сумму ее элементов.

Решение:

program Matrix19;

var

a:array [1..10,1..10] of integer;

Sum,M, N, i, j:Integer;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

Sum:=0;

For i:=1 to M do

begin

Sum:=0;

for j:=1 to N do Sum:=Sum+a[i,j];

Writeln(i,' sum:',Sum);

end;

end.

Другие задачи из раздела Matrix можно посмотреть здесь.