Я хотел сделать программу с помощью процедуры.
Procedure DEL(k1:integer);
Begin
for j:=k1-z to m-1-z do
for i:=1 to n do
mas[i,j]:=mas[i,j+1];
for i:=1 to m do
mas[i,m-z]:=0;
z:=z+1;
end;
Где n- кол-во строк, m- столбцов.
k1- стролбец который надо удалить.
Проблема- не удается сделать корректную проверку на наличие нуля в столбце и вызов процедуры. Удаляются не все столбцы.
Если возможно помогите с циклом обработки!