Найти нули в каждой строке двумерного массива и заменить их на сумму элементов всей строки - PascalABC.NET - Ответ 14248198

const n=5;
var a:array[1..n,1..n] of real;
i,j,k:integer;
sum:real;
begin
a[1,1]:=0.1; a[1,2]:=0; a[1,3]:=4; a[1,4]:=4; a[1,5]:=12;
a[2,1]:=0.2; a[2,2]:=0.3; a[2,3]:=5.1; a[2,4]:=5.1; a[2,5]:=4;
a[3,1]:=0; a[3,2]:=0;a[3,3]:=3; a[3,4]:=3; a[3,5]:=0;
a[4,1]:=0.4; a[4,2]:=0.5;a[4,3]:=0; a[4,4]:=0; a[4,5]:=0;
a[5,1]:=0.5;a[5,2]:=0.2;a[5,3]:=1.4;a[5,4]:=1.4;a[5,5]:=0;
writeln('Исходная матрица');
for i:=1 to n do begin 
for j:=1 to n do write(a[i,j]:8); writeln; end;
  k:=0;
  for i:=1 to n do begin
  for j:=1 to n do begin 
  if (a[i,j]=0) then inc(k); end;
  writeln('в ',i,' строчке ','количество нулей: ',k); end;
      sum:=0;
      for i:=1 to n do begin
      for j:=1 to n do begin 
      if (a[i,j]=0) then sum:=sum+a[i,j]; end;end;
        
 
          writeln('Измененная матрица');
          for i:=1 to n do begin
          for j:=1 to n do write(a[i,j]:8);writeln;end; end.