Люди добрые помогите плз с задачкой по турбо паскалю

[Staffikk]

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

[fbus]

стучи в аську

[Stilet]

Мыслей много

Делись мыслями )

[Staffikk]

вот набрал, работает где то на 80%))))
помогите исправить ошибки

program z1;
var a,b:array[1..1000] of integer;
i,n,t,k:integer;
begin
     writeln('kol-vo elementov');
     readln(n);
     writeln('Vvedite  elementi massiva');
     for i:=1 to n do read(a[i]);
     for i:=1 to n do  begin
     if a[i]=0 then begin t:=t+1;
                    if t>2 then begin  a[i]:=1;t:=0;end;
                    end;  end;
                    k:=1;
     for i:=1 to n do begin    a[k]:=a[i];
                      if a[i]<>0 then k:=k+1;
                      end;
     for i:=1 to k do write(a[i],' ');
end.

[Stilet]

Вот пример

var b,a:array[1..30] of byte;i,k:byte;
begin
 randomize;
 for i:=1 to 30 do begin
  a[i]:=random(3);
  write(a[i]:2);
 end;
 k:=1; i:=1; while i<=30 do begin
  while (a[i]=0)and(a[i+1]=0) do inc(i);
  b[k]:=a[i];
  inc(i); inc(k);
 end;
 writeln;
 for i:=1 to 30 do begin
  write(b[i]:2);
 end;
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Сожмет массив, только там про единицы сам подумаешь.

[RusArtm]

А что значит "зжать массив"?
Если бы речь шла о динамическом массиве... но в обеих примерах обычные массивы....

[MalCer]

Вот ссылка, там и посмотри

[Staffikk]

я это уже давно видел на гугле,
кста вот так проще избавиться от нулей

k:=1;
     for i:=1 to n do begin    a[k]:=a[i];
                      if a[i]<>0 then k:=k+1;
                      end;
      for i:=1 to k do write(a[i],' ');

у меня проблема в основном не в поиске нулей а в замене нуля на единицу, почему то заменяет на единицу не первый элемент, а может третий заменить или второй или вообще не заменить, вот прошу помощи в доработке
вот повторяю еще раз код программки:

program z1;
var a,b:array[1..1000] of integer;
i,n,t,k:integer;
begin
     writeln('kol-vo elementov');
     readln(n);
     writeln('Vvedite  elementi massiva');
     for i:=1 to n do read(a[i]);
     for i:=1 to n do  begin
     if a[i]=0 then begin t:=t+1;
                    if t>2 then begin  a[i]:=1;t:=0;end;
                    end;  end;
                    k:=1;
     for i:=1 to n do begin    a[k]:=a[i];
                      if a[i]<>0 then k:=k+1;
                      end;
     for i:=1 to k do write(a[i],' ');
end.