Одномерный массив. Паскаль. Исключить все нулевые элементы.

[charming]

Дан одномерный массив числовых значений, насчитывающий n элементов. Исключить все нулевые элементы.
Помогите, пожалуйста, в решении этой задачи.

[IT-man]

i:=1;
while i<=n do
begin
if a[i]=0 then begin for j:=i to n-1 do a[j]:=a[j+1];n:=n-1;end
else i:=i+1;
end;

[AVer]

1)В переменной Х хранить текущую длину массива.
2)Написать процедуру кторая все элементы от некого Н до Х двигать все элементы влево и уменьшает Х.
3) В цикле проходить массив и если элемент равен нулю вызывать процедуру и передавать номер элемента как Н.

[charming]

Извиняюсь, можно поподробней.
Не понимаю...

[IT-man]

Извиняюсь, можно поподробней.
Не понимаю...

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

1)В переменной n хранить текущую длину массива.
2)Написать процедуру кторая все элементы от некого i до n двигать все элементы влево и уменьшает n
3) В цикле проходить массив и если элемент равен нулю вызывать процедуру и передавать номер элемента как i.

куда уж подробнее то?

[charming]

program new;
var a:array[1..15] of integer;
f:text;
i,n,g,j:integer;
begin
writeln('massiv ');
assign(f,'fail.dat');
reset(f);
n:=15;
for i:=1 to n do
begin
readln(f,a[i]);
writeln('a[',i,']=',a[i]);
end;
begin
i:=1;
while i<=n do
begin
if a[i]=0 then begin for j:=i to n-1 do a[j]:=a[j+1];n:=n-1;end
else i:=i+1;
end;
end;
readln;
end.

Вот код. Понимаю, что бред. Объясните, пожалуйста, что изменить!

[val_nnm]

Я бы лично сделал так

const maxN = 100;
var a:array[1..maxN] of integer;
    n:integer;

    k:integer;
    i:integer;

    f:text;
Begin
  Assign(f,'data.txt');
  reset(f);
  n := 0;
  while (not eof(f)) and (n<maxN) do Begin
    n := n + 1;
    readln(f,a[n]);
  end;
  close(f);
  
  for i := 1 to n do
    write(a[i]:3,' ');
  writeln;

  k := 0;
  for i := 1 to n do Begin
    if (a[i]<>0) then Begin
      k := k+1;
      if (k < i) then   { Условие небязательно. Эфективность его применения зависит от размера типа данных в массиве }
        a[k] := a[i];
    end;
  end;
  n := k;

  for i := 1 to n do
    write(a[i]:3,' ');
  writeln;
  readln;
End.

сложность алгоритма n против n*n (которая при удалении каждого элемента по отдельности)

здесь счётчик i проходит по всем элементам. а счётчик k это пзиция (одновременно и размер) в массива куда нужно записывать значение.
разница между ними это фактически сдвиг для очередного элемента.
если элемент не 0 то сдвиг остаёться постоянным (т.е. k увеличиваеться на 1 всел да i) А если элемент равен 0 то k остаёться прежним (а так как i было увеличенно на 1 то и сдвиг увеличиваеться).

[charming]

Спасибо большое!