Ребят, вот сама программа В ней процедуры Нужно написать функцию Возможно ли поменять изменить процедуры Ml и Md На функцию, или же, если не брать из процедур, то функцию иную написать? Спасите безумца, ибо зачетная работа и долго над ней уже безрезультатно сижу
{---------------Процедура, создающая новую матрицу из положительных элементов---------------} procedure Ml(var TABL: Matr2); var i, j: integer; begin{1} gotoxy(3, 4); textattr := yellow; writeln('Положительные элементы: ');
for i := 1 to n do begin {2}
for j := 1 to k do begin {3} if a[i, j] > 0 then begin {4} TABL[i, j] := A[i, j]; Write(tabl[i, j]: 4);
Write(' ');
writeln; end; {4} end; {3} end; {2} end; {1}
{---------------Процедура, создающая новую матрицу из отрицательных элементов---------------} procedure Md(var TABL: Matr2); var i, j: integer; begin {1} gotoxy(3, 4); writeln('Отрицательные элементы: ');
for i := 1 to n do begin {2}
for j := 1 to k do begin {3} if a[i, j] < 0 then begin {4} TABL[i, j] := A[i, j]; Write(tabl[i, j]: 4);
Write(' ');
writeln; end; {4} end; {3} end; {2} end; {1}
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.