Задана квадратичная матрица А порядка N состоящая из действительных…

var a: array [1… 100,1… 100] of real; i,j,maxi,n: integer; s,max: real; Begin read (n); for i: =1 to n do for j: =1 to n do begin read (a[i,j]); if (i=1) and (j=1) or (max