Дана таблица 6*6. Найти сумму положительных элементов для каждой строки.

program num2;

uses crt;

var

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

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

begin

writeln(\'razmernost matrizy\');

read(N); readln(M);

Sum:=0;

writeln(\'vvedite po \',N,\' elementov \');

for i:=1 to M do begin

writeln(i,\' stroki : \');

for j:=1 to N do read(a[i,j]);

end;

writeln;

writeln(\'otvet\');

for i:=1 to M do

begin

Sum:=0;

for j:=1 to N do

begin

if a[i,j]>0 then

Sum:=sum+a[i,J];

end;

writeln(\'summa \',i,\' stroki: \',Sum);

end;

end.