Дан массив, содержащий неКак узнать сколько нулевых элементов.«Сжать» его, выбросив эти элементы.

var b:array [1..100] of integer;

i,k,n:integer;

begin

n:=10;

for i:=1 to n do readln (b[i]);

k:=0;

for i:=1 to n do

if b[i]=0

then begin

b[i]:=b[i+1];

inc(k);

end;

n:=n-k;

k:=0;

for i:=1 to n do

if b[i]=0

then begin

b[i]:=b[i+1];

inc(k);

end;

n:=n-k;

for i:=1 to n do write(b[i],' ');

readln;

end.

Объяснение:

я проход два раза делаю,чтобы если два нуля вместе - тоже делл их.

Надеюсь что правильно понял задание.