Program z; var i,j,f,n:integer; a,b:array [1..10] of integer; begin      writeln('Введите кол-во элементов последовательности');      readln(n);      writeln('Введите элементы последовательности');      for i:=1 to n do          begin               write(i,' - ');               readln(a[i]);          end;      j:=0; f:=0;      for i:=1 to n do          if a[i]=0             then                 begin                      j:=j+1;                      b[j]:=a[i];                      f:=1;                 end;      if f=0         then             writeln('В заданной последовательности нет нулей')      else if f=1           then               begin                    writeln('Массив, составленный из нулей');                    for i:=1 to j do                        write(b[i],' ');               end; end.
Это на 4