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

Сла · 29 Янв 2018

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

hatiman · 29 Янв 2018

ieXNe · 29 Янв 2018

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

санек777 · 29 Янв 2018

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

kenan · 29 Янв 2018

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 · 29 Янв 2018

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

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

Privacy & Transparency

Privacy & Transparency