Произведение положительных элементов гл. диагонали (Pascal)

[Snake_009]

Разработать паскаль-программу с использованием подпрограмм. (по процедуре)
Если произведение Р положительных элементов главной диагонали матрицы А(5*5) больше 1, вывести значение Q/P, где Q-произведение положительных элементов главной диагонали матрицы В(7*7).

[J.B.DiGriz]

...пиши в скайп или контакт - помогу...)

[Vanta11a]

for i := 1 to n do
if a1[i,i]>0 then
pr := pr * a1[i,i];

Приведенный выше код находит произведение положительных элементов главной диагонали.

Полный исходник - за $.