Дан одномерный массив, Дан одномерный массив Опции

[mithquessir]

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

У меня получилось только если в массиве 1 ноль:

Код

var
 x: array[1..5] of integer;
 n,i,j:integer;
begin
n := 0;
x[1] := 3;x[2] := 0;x[3] := 2;x[4] := 0;x[5] := 5;
for i := 1 to 5 do
begin
 if x[i] = 0 then
 n := 1;
 if n = 1 then
 begin
   x[i] := x[i + 1];
   if i = 5 then
   begin
     x[i] := 0;
     n := 0;
   end;
 end;
end;
for j := 1 to 5 do
Write(x[j],' ');
end.

Как быть?
Доделайте, кто может, pls.


2 admin Я зарегился, прочитал ФАК от корки до корки, там этого нет