Дан целочисленный массив с количеством элементов n. "Сожмите" массив, выбросив из него каждый второй элемент.
Примечание. Дополнительный массив не использовать.
Примечание. Дополнительный массив не использовать.
More Questions From This User See All
Answers & Comments
a: array of integer;
i,j,z: integer;
begin
readln(z);
SetLength(a,z+2);
for i:=1 to z do
readln(a[i]);
for i:=z downto 1 do
if i mod 2=0 then
for j:=i to z-1 do
a[j]:=a[j+1];
for i:=1 to z-(z div 2) do write(a[i]:4);
end.