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

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

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

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

var a: array of integer; i,j,z: integer;beginreadln(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.

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