Дан целочисленный двумерный массив 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.