Код
procedure summa (mx:PDynMatrix;c1:integer;c2:integer);
var i,j, s:integer;
begin
for i:=1 to c1 do begin
s:=0;
writeln;
for j:=1 to c2 do begin
if mx^[I]^[J]>0 then
s:=s+mx^[I]^[J]
end;
write('Matrica А :summa polozhitelnih elementov ',i,'-oy stroki = ',s);
end;
writeln;
end;
var i,j, s:integer;
begin
for i:=1 to c1 do begin
s:=0;
writeln;
for j:=1 to c2 do begin
if mx^[I]^[J]>0 then
s:=s+mx^[I]^[J]
end;
write('Matrica А :summa polozhitelnih elementov ',i,'-oy stroki = ',s);
end;
writeln;
end;
А вывести нужно в самой основной программе для любой дин.матрицы.
что-то вроде
Код
procedure summa (mx:PDynMatrix;c1:integer;c2:integer;s:integer);
begin
.....
.....
....
end;
begin
summa(A,n,m,s1);
write(s1);
end.
begin
.....
.....
....
end;
begin
summa(A,n,m,s1);
write(s1);
end.
Но так как там сумма динамическая, у меня возникли некоторые проблемы