Дан целочисленный двумерный массив a (n, n) n=6. Найти среднее геометрическое элементов побочной диагонали и поставть его на место максимального элемента главной диагонали.

Program ANT;

const n=6; m=6;

var i, j:integer;

var a:array [1 ... n, 1 ... m] of real;

begin

writeln ('Введите матрицу') ;

for i:=1 to n do

for j:=1 to m do begin

writeln ('a[', i,',', j,']') ;

readln (a[i, j]) ;

end;

writeln ('Исходная матрица') ;

for i:=1 to n do

for j:=1 to m do begin

writeln (a[i, j]) ;

writeln;

end;

u:=0;

for i:=1 to n do begin

for j:=1 to m do

if i+j=7 then u:=u+ln (a[i, j]) ;

end;

writeln ('Среднее геометрическое', u) ;

max:=[1,1];

for i:=1 to n do begin

for j:=1 to m do

if (a[i, j]>max) then [i, j]:=max;

end;

writeln ('Максимальное значение', max) ;

u:=max;

writeln ('Полученная матрица') ;

for i:=1 to n do

for j:=1 to m do begin

writeln (a[i, j]) ;

writeln;

end;

end.