Разработать программу предварительно выделив 1 или несколько процедур. Желательно чтобы каждая процедура являла собой алгоритм, многократно используемый в программе, т.е. вызывалась более 1 раза с разными фактическими параметрами:
В каждой из 2х матриц A(6*6) и B(8*8) определить минимальное значение среди положительных элементов главной диагонали!
помогите плз
Что-то сам пробовал делать ? Такие задачи решались десятки раз
Поиск + http://forum.pascal.net.ru/index.php?showtopic=2694
Номер минимального положительного элемента матрицы размером 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]);
спасиб за помощь)