const n = 5; var i, j, max, sum, sum1 :integer; a :array [1..n,1..n] of integer; begin for i:= 1 to n do for j:= 1 to n do readln(a[i,j]); max:= 0; sum:= 0; for i:= 1 to n do begin for j:= 1 to n do sum1:= sum1 + abs(a[i,j]); if sum1 > sum then begin sum:= sum1; max:= i; end; sum1:= 0; end; for i:= 1 to n do for j:= 1 to n do a[i,j]:= a[i,j] + max; writeln('Номер строки с наибольшей абсолютной суммой: ',max); writeln; for i:= 1 to n do begin for j:= 1 to n do write(a[i,j]:4); writeln; end; end.