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