решите задачу по информатике : задан массив содержащий несколько нулевых элементов, сжать его выбросив эти элементы

Question

Оксана Залецкая · Accepted Answer

Идешь по циклу (while или repeat) и проверяешь равен ли элемент 0, если равен, то сдвигаешь все элементы после равного 0 на 1 влево, и уменьшаешь количество элементов на 1.

Волчара 2010 · Answer

k := Low(A); for i := Low(A) to High(A) do begin if A[ i] <> 0 then begin if k <> i then A[ k] := A; Inc(k); end; end;