хелп!
Подсчитать число нулевых компонентов целого массива из 10 элементов. Если нулевых элементов окажется больше 2, то поменять местами нулевые элементы с первыми элементыми массива, отличными от нуля.
var
b,l,j,n,i:integer;
ar:array [1..10] of integer;
begin
n:=10; j:=0; l:=0;
for i:=1 to n do read(ar[i]);
writeln;
for i:=1 to n do
if ar[i]=0 then inc(j);
if j>2 then
for i:=1 to n do
if ar[i]=0 then
begin
inc(l);
if ar[l]<>0 then
begin
b:=ar[l];
ar[l]:=ar[i];
ar[i]:=b;
end;
end;
writeln('Massiv posle izmeneniya: ');
for i:=1 to n do write(ar[i],' ');
end.