Массив

[qwerty_]

Помогите составить программу

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

[Fi11eR]

если я правильно понял и "подобной" это "побочной", а "найти" это "заменить", то:

b:=a[N,1];
minp:=1;
for i:=2 to N do
begin 
   b:=b*a[N-i+1,i];
   if a[i,i]<a [minp,minp] then minp:=i;
end;
a[minp,minp]:=exp(ln(b)/N);