Сдвинуть все строки, начиная с данной на одну вверх. Последнюю строку обнулить. Уменьшить количество строк. Процедура удаления строки приведена ниже. Procedure Delete1(Var X : MyArray2; Var n, m : integer; k1 : integer); Var i, j : integer; Begin for i := k1 to n-1 do for j := 1 to m do X[i, j] := X[i+1, j]; for j := 1 to m do X[n, j] :=
Сдвинуть все строки, начиная с данной на одну вверх. Последнюю строку обнулить. Уменьшить количество строк. Процедура удаления строки приведена ниже. Procedure Delete1(Var X : MyArray2; Var n, m : integer; k1 : integer); Var i, j : integer; Begin for i := k1 to n-1 do for j := 1 to m do X[i, j] := X[i+1, j]; for j := 1 to m do X[n, j] :=