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

program zz1;

const n = 6;

var i, j, s, p, max, num1, num2: integer;

m: array[1 ... n, 1 ... n] of integer;

begin

for i:=1 to n do begin

for j:=1 to n do begin

m[i, j]:=random (101);

write (m[i, j]:3);

end;

writeln;

end;

s:=1;

for i:=1 to n do begin

for j:=1 to n do begin

if j = i then if (m[i, j]>max) then begin max:=m[i, j]; num1:=i; num2:=j; end;

if j = n - i + 1 then s:=s * m[i, j];

end;

end;

writeln;

p: = trunc (exp (ln (s) / n));

m[num1, num2]:=p;

for i:=1 to n do begin

for j:=1 to n do

write (m[i, j]:3);

writeln;

end;

end.