Задан одномерный массив. Все его элементы, не равные нулю

[Vadim228]

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

[Aleksandr H.]

uses crt;
var a:array[1..20] of byte;
i,j,k:byte;
begin
clrscr;
randomize;
for i:=1 to 20 do
begin
     a[i]:=random(10);
     write(a[i]:2);
end;
writeln;
i:=1;        k:=0;
while i<=20-k do
begin
 if a[i] = 0 then
  begin
    for j:=i to 19 do a[j]:=a[j+1];
    a[20]:=0;
    dec(i);
    inc(k);
  end;
 inc(i)
end;
for i:=1 to 20 do write(a[i]:2);
readln;
end.

[Serge_Bliznykov]

может просто сортировать?
так разве не проще?

uses crt;
const n=20;
var a:array[1..n] of byte;
i,j,k:byte;
begin
clrscr;
randomize;
for i:=1 to n do
begin
     a[i]:=random(10);
     if (a[i]<>0) and (random(4)=0) then a[i]:=0; // чтобы нулей было больше
     write(a[i]:2);
end;
writeln;

for i:=1 to n-1 do
  for j:=i+1 to n do
   if (a[i]=0) then begin
     k:=a[i]; a[i]:=a[j]; a[j]:=k;
   end;

{вывод результата}
for i:=1 to n do write(a[i]:2);

readln;
end.

[Aleksandr H.]

Проще. Наверное...

[Stilet]

А я бы так делал:

{Все его элементы, не равные нулю, переписать (сохраняя их порядок) в начало
 массива, а нулевые элементы – в конец массива. Новый массив не заводить.}
var a:array[1..10] of integer; i,j:integer;
begin
 for i:=1 to 10 do readln(a[i]);
 j:=1; for i:=1 to 10 do if a[i]<>0 then begin a[j]:=a[i]; inc(j); end;
 for i:=j to 10 do a[i]:=0;
 for i:=1 to 10 do writeln(a[i]);
 readln;
end.

[Serge_Bliznykov]

Сообщение от Stilet

А я бы так делал:

согласен. так ещё лучше!
Ни одного лишнего действия.