Помогите решить, массив Опции

[Леша]

Дан одномерный массив. Все его элементы, не равные нулю, переписать(сохраняя их порядок) в начало массива,а нулевые элементы в конец массива (Новый массив не заводить).

[APAL]

Вроде так...

For i:=2 to Max-1 do
 For j:=Max downto i do
  If M[j-1]=0 then 
  Begin
    k:=M[j-1];
    M[j-1]:=M[j];
    M[j]:=k;
  End;

Смени название топика!

Сообщение отредактировано: volvo - 2.11.2006 9:38