одномерный массив

[~anutik~]

задан массив а размерности n. содержащий несколько нулевых элементов. поставить ноли в начало строки.

p.s. заранее благодарю

[[CODER]]

z:=1;
for i:=1 to n do 
  if m[i]=0 then begin
     tmp:=m[z];
     m[z]:=m[i];
     m[i]:=tmp;
     inc(z);
  end;

[~anutik~]

у меня программка такая:
если нетрудно, исправь пожалуйста:

uses crt;
var a:array[1..100] of integer;
    m,i,k:integer;
begin
Clrscr;
Write('Vvedite k: ');
Readln(k);
for i:=1 to k do
 begin
  a[i]:=random(5)-3;
  Write(a[i],'  ');
 end;
Writeln;
m:=0;
for i:=1 to k do
 if a[i]=0 then
 m:=m+1
 else
  a[i-m]:=a[i+9];
 k:=k-m;
for i:=1 to k do
 Write(a[i],'  ');
Readln;
end.

[ROMA2PVT]

uses crt;
var a:array[1..100] of integer;
i,k,z,tmp,j:integer;
begin
Clrscr;
randomize;
Write('Введите количество элементов: ');
Readln(k);
writeln('Исходный массив: ');
for i:=1 to k do
begin
a[i]:=random(5)-3;
Write(a[i],' ');
end;
Writeln;
z:=0;
for i:=1 to k do
  if a[i]=0 then
  begin
       inc(z);
     tmp:=a[i];
     for j:=i downto z+1 do
     a[j]:=a[j-1];
     a[z]:=tmp;
  end;
  writeln;
  writeln('Результирующий массив: ');
for i:=1 to k do
Write(a[i],' ');
Readln;
end.

[~anutik~]

inc(z);
tmp:=a[i];
можно эти 2 строчки записать как-то по другому?
(преподаватель в таком виде не принимает)

[Chudo4258]

inc(z); <=> z:=z+1;
tmp:=a[i]; а эта строчка чем вам не нравится, эта строчка означает, что вы копируйте информацию с i-го элемента массива, для того чтобы записать туда новую информацию, но при этом не потерять страрую информацию из а[i]

[~anutik~]

спасибо за пояснения!