Дан двумерный массив A[m,n]. Получить сумму первой строки. Получить новый массив B из массива A заменой нулей массива A на сумму первой строки. Результаты выдать на экран.
PROGRAM kr_5;
const
n = 3; m = 4;
var
a,b: array[1..n, 1..m] of real;
i: integer;
j: integer;
s: real;
begin
Writeln('значение элементов матрицы:');
for i:=1 to n do for j:=1 to m do readln(a[i,j]);
s:=0;
for i:=1 to 1 do
for j:=1 to m do
s:=s+a[1,j];
writeln(' = ',s:7:2);
begin
for i:=1 to n do for j:=1 to m do readln(a[i,j]);
a [i,j]:=b[i,j];
if a[ i,j ] =0 then begin b[i,j]:=Round(S);
writeln('massiv b', b[i,j]);
writeln;
end;
readln;
end;
end.