Целочилсенная матрица

[SkuLLL]

Надо найти корень из произведения элементов главной диагонали, у меня набросок есть токо чет не пашет(( исправьте ошибку плиз


Program dmas_5;
const n=4;
Var a:array[1..n,1..n] of integer;
i,j:integer;
p,k: real;
Begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(50);
write(a[i,j],' ');

end;
writeln;
end;
p := 0;
for i := 1 to n do
begin
for j:=1 to n do
begin
if i=j then p:=p*a[i,j]
end;
End;
k:=sqrt(p);
write('Корень из произведения: ',k);
writeln;
end.

[Hacker19_90]

end;
p := 0;
for i := 1 to n do
begin

если p = 0 то вы ничего кроме 0 не получите!
p присвойте 1 p := 1

[vovk]

конечно не пашет, дай ка догадаюсь всегда =0 ))

p := 0;

))
p:=1;

2Hacker19_90 опоздал я опять))

2SkuLLL внимательней списывать надо))
http://www.programmersforum.ru/showp...44&postcount=5