Код написал код, но ответ постоянно один и тот же

[SkuLLL]

Писал прогу на нахождение среднего геометрического(квадратный корень из произведения элементов побочной диагонали). Но почему-то выводит одно и тоже число. Подскажите ошибку

Program  dmas_5;
const n=5;
Var a:array[1..n,1..n]  of integer;
i,j:integer;
p: real;
Begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(50)-20;
write(a[i,j]);
writeln;
end;
end;
p := 0;
for i := 1 to n do
begin
for j:=1 to n do
begin
if i + j = 5 + 1 then p:=sqrt(i*j)
end;
End;
write('Среднее геометрическое: ',p);
writeln;
end.

И массив выводится в столбик

[p51x]

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

И массив выводится в столбик

Что написали, то и получили.

p:=sqrt(i*j)

Но почему-то выводит одно и тоже число.

И опять: что написали, то и получили. Хотите я даже угадаю какое число выводит?

[vovk]

а в задании не сказано, что массив должен состоять из положительных чисел?

[SkuLLL]

нет, там сказано найти среднее геометрическое в массиве состоящем из случайных чисел

[vovk]

Program dmas_5;
const n=5;
Var a:array[1..n,1..n] of integer;
i,j:integer;
p: real;
Begin
randomize;
for i:=1 to n do
begin
 for j:=1 to n do
   begin
   a[i,j]:=random(50);
    write(a[i,j]);
    write('; ');
   end;
writeln;
end;
p := 1;
for i:= 1 to n do
 for j:= 1 to n do
 if i + j = 5 + 1 then p:=p*a[i,j];

 p:=sqrt(p);

write('корень из диагонали: ',p);
writeln;
readln;
end.

не тебе про корень из диагонали))