Дан целочисленный массив с количеством элементов n. "Сожмите" массив, выбросив из него...

Question

Дан целочисленный массив с количеством элементов n. "Сожмите" массив, выбросив из него каждый второй элемент.
Примечание. Дополнительный массив не использовать.

Answer 1

Какой язык? Откуда вводятся элементы?

Comments

Паскаль. Линейные массивы

---

Я имел в виду, числа вводятся с клавиатуры или комп сам рандомно забивает массив?

---

Если с клавиатуры, то так:

---

var
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.