2. Дан одномерный массив. Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево.
Код:
const n=15;
var a:array[1..n] of integer;
i,j,t:integer;
begin
Writeln('Massiv:');
Writeln;
Randomize;
for i:=1 to n do
begin
a[i]:=Random(3)-1;
Write(a[i]:4);
end;
Writeln; Writeln;
t:=n;
for i:=n downto 1 do
if a[i]=0 then
begin
for j:=i to n-1 do
a[j]:=a[j+1];
a[n]:=0;
Dec(t);
end;
if t=n
then Writeln('Net nulevih elementov')
else
begin
Writeln('Massiv posle sdviga:');
Writeln;
for i:=1 to n do
Write(a[i]:4);
Writeln;
end;
Readln;
end.