В самом конце программы делает нули заместо матрицы. Не понимаю почему. Две недели уже сижу над этим. =/ ML и MD сортирует положительные и отрицательные. Все работает сначала нормально, но потом преобразованная таблица заполняется неверно! Помогите пожалуйста
Вы не формируете новую матрицу, вернее полностью её копируете. Без малейших изменений. Вот где здесь формирование отличий A от TABL?
{---------------Ввод элементов матрицы(положительные)---------------} 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 Write(a[i, j]: 4) else Write(' '); TABL[i, j] := A[i, j]; writeln; end; {3} end; {2}
end;
Почти так же и здесь
{---------------Ввод элементов матрицы(отрицательные)---------------} 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
if a[i, j] < 0 then Write(a[i, j]: 4) else Write(' '); TABL[i, j] := A[i, j]; writeln;
end; {2} readln; end; {1}
Всё что мог, я уже диагностировал. Дальше вы должны предпринять меры по исправлению.