Как удалить нулевые элементы из массива?

[Diman_kemNVK]

Ну в общем задание такое: есть одномерный массив, состоящий из 10 произвольных элементов, требуется удалить из него нулевые элементы, если они в нем есть. Задание вроде бы простое, но я что-то ума не приложу как это сделать.. Подскажите пожалуйста, буду очень благодарен

[BARNEY]

нашёл в гугле..думаю принцип понятен

procedure TForm1.Button1Click(Sender: TObject);
type massiv=array [1..50] of real;
procedure del_mass(m, kol:integer; var y:massiv);
var i: integer;
begin
  for I := m to kol-1 do
    y[i]:=y[i+1];
end;
var i, n, k: byte;
    x: massiv;
begin
  n:=strtoint(edit1.text);
  for I := 1 to n do
    x[i]:=strtofloat(stringgrid1.Cells[i,0]);
  k:=0;
  for I := n downto 1 do
    begin
      if x[i]=0 then
        begin
          if k>=4 then break
          else
            del_mass(i,n,x);
          k:=k+1;
        end;
    end;
  for I := 1 to n-k do
    stringgrid2.cells[i,0]:=floattostr(x[i]);
end;

или

Program xa;
uses
  crt;
Type
  Mas = array [1..50] of integer;
var
  a:mas;
  i,n,CountDelZeroByMas:integer;
 
Procedure DelZeroByMas(PosZero,CountMas:integer);
var
  i:integer;
begin
  for i:=PosZero to COuntMas-1 do
    a[i]:=a[i+1]
End;
 
Procedure PrintMas(CountMas:integer);
var
  i:integer;
begin
  Writeln;
  for i:=1 to CountMas do
    Write(A[i],'  ');
  Writeln
End;
 
Begin
  repeat
    clrscr;
    Writeln('VVedute pa3mepnoct'' massiva');
    readln(n);
  until (n>0) and (n<51);
  clrscr;
  Writeln('Vvedute Cam Massiv');
  for i:=1 to n do
  begin
    Write('A[',i,']=');
    readln(a[i])
  end;
  clrscr;
  Writeln('Massiv do u3menenui');
  PrintMas(n);
  i:=1;
  CountDelZeroByMas:=0;
  repeat
    if a[i]=0 then
    begin
      inc(CountDelZeroByMas);
      DelZeroByMas(i,n-CountDelZeroByMas);
      dec(i)
    end;
    inc(i);
  until (i>n-CountDelZeroByMas) or (CountDelZeroByMas>3);
  Writeln('Massiv posle u3mNeNui');
  PrintMas(n-CountDelZeroByMas);
  readln
End.

[Google2010]

553-566-179! недорого!