Процедуры и функции:Матрицы. PascalABC

[_d_D_]

dr.Jekill, Неужели по другому никак не решается?

[dr.Jekill]

Насколько я понял:
берешь первый массив, находишь там мин элемент и записываешь строку в которой находится этот элемент в результирующий массив, потом берешь второй массив и делаешь то же самое. Потом снова берешь первый массив и записываешь столбец в котором находится минимальный элемент этого массива в результрующий массив. То же самое делаешь со вторым массивом.
!НО
равных минимальных элементов может быть несколько в массиве!

[_d_D_]

Эт я понял.Меня интересует как определить строку и столбец содерж.минимальный элемент..

[dr.Jekill]

У тебя же процедура Minimum находит положение мин элемента в матрицы. Следует записывать в результирующий массив i-тую строку и j-тый столбец каждой матрицы.

[_d_D_]

Чёт я туплю нереально.Мне нужно сделать ещё одну процедуру,верно?
и там будет что-то вроде этого?

Код: Выделить всё

begin
for i:=1 to N do
for j:=1 to N do
Z[i]:=Matr[i,j];
end;

[dr.Jekill]

если iMin номер строки мин элемента, тогда при записи:

Код: Выделить всё

begin
for i:=1 to N do
for j:=1 to N do
Z[i]:=Matr[iMin,j];
{а при записи столбца Z[i]:=Matr[i,jMin];}
end;

Кстати в процедуре Minimum, если ты первоначально запоминаешь позицию первого элемента, то лучше перебирать со второго элемента.

[_d_D_]

Так это 2 разные процедуры писать?или в одну можно?
И ещё список формальных параметров будет выглядеть следующим образом:

Код: Выделить всё

Procedure FormZ (const Matr:tmatr;N,M:byte;var iMin,jMin:byte);

или нет?

[dr.Jekill]

Можно во входные параметры добавить флаг.

[_d_D_]

Можно во входные параметры добавить флаг.

Что за флаг?

[dr.Jekill]

Кстати если матрица не квадратная, то результрующий массив надо перебирать (и записывать в него) до последнего элемента записываемой строки или столбца.