Листинг программы

program z8;

{ Уплотнить линейный массив удалив нули и сдвинув влево остальные элм.}

uses crt;

var m,i,k:longint; a:array[1..100]of longint;

 begin

  clrscr;

   write('введите кол-во элм таблицы: ');readln(k);

   for i:=1 to k do

    begin

     write('a[',i,']=');readln(a[i]);

    end;

   m:=0;

   for i:=1 to k do

   if a[i]=0 then inc(m)

             else a[i-m]:=a[i];k:=k-m;

   for i:=1 to k do write(a[i],' ');readln;

 end.