Матрица, Процедуры Опции

[sugutor]

Разработать программу предварительно выделив 1 или несколько процедур. Желательно чтобы каждая процедура являла собой алгоритм, многократно используемый в программе, т.е. вызывалась более 1 раза с разными фактическими параметрами:

В каждой из 2х матриц A(6*6) и B(8*8) определить минимальное значение среди положительных элементов главной диагонали!

помогите плз

[klem4]

Что-то сам пробовал делать ? Такие задачи решались десятки раз

Поиск + FAQ : Массивы

Номер минимального положительного элемента матрицы размером n*n, лежащего на главной даигонали :

nmin := 0;
for i := 1 to n do
 if (mx[i, i] > 0) and ((nmin = 0) or (mx[nmin, nmin] > mx[i, i])) then nmin := i;

if nmin = 0 then writeln('No')
 else writeln(nmin, ' - ', mx[nmin, nmin]);

[sugutor]

спасиб за помощь)