как удалить строку из массива? Опции

[klik1602]

Дана матрица А порядка н. Удалить строки содержащие нулевые элементы.

[TarasBer]

1.

> for p:=1 to m do
a[k,p]:=a[k+1,p];

Если бы m совпадало с размером матрицы, то можно было бы писать просто a[k] := a[k + 1];
(для не совпадающего - тоже как бы можно, но не надо так делать)
Для динамической матрицы (массив указателей на массивы строк) через a[k] := a[k+1] было бы идеально - копируется не ряд, а только указатель.

2.

Алгоритм ужасен, для каждого удаления элемента выполняет сдвиг всей оставшейся таблицы.
Именно для этого я и написал статью в ЧАВО, чтобы так не делали.
Ужас в том, что эту ошибку делают не только новички. Часто обработчики некоторых форматов, написанные опытными людьми, тоже применяют операцию удаления и сдвига для каждого встреченного комментария.

Впрочем, раз работает, то препода это устроит.
Когда сдашь задачу преподу, напишу, как бы делал я.