Вопрос PascalABC Помогите сместить все нули в массиве в одну сторону (в право)

[Сла]

Мне нужна помощь. У меня есть массив, я удаляю из него определенные элементы (те делаю их равными нулю), теперь мне надо сместить все переменные в одну сторону, тип переменных longint.

 

[hatiman]

 

[ieXNe]

кол. кол_нулевых = 0 цикл i от 1 до n если встречен нулевой, то кол_нулевых увеличить на 1 если кол. нулевых больше нуля и i <= (n-кол_нулевых ) то делать mas := mas[i+кол_нулевых]

 

[санек777]

Какие переменные? У тебя массив или что?

 

[kenan]

j := 1; for i := 1 to n do begin if a <> 0 then begin a[j] := a; inc(j) end end; for i := j to n do a := 0

 

[n0x1us]

на с++, на pascal самостоятельно переведешь for(i=j=0;i<N;a;i++)if(a!=0) a[j++]=a;for(;j<N;j++)a[j]=0;