Pascal Code:
program lab6; const n=4; type matr=array[1..n,1..n] of real; var a: matr; i,j,k:integer; d, min:real; begin Writeln('Массив:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=sin(i+j); write(a[i,j]:6:2); end; writeln; end; for i:=1 to n do begin d:=0; for k:=1 to n do d:=(d+abs(a[i,k])); writeln('Строка ',i:2,' D=',d:6:2); end.