Дан целочисленный массив размера n (> 2). удалить из массива все элементы с нечетными номерами (1, 3, …).

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  var a:=ArrRandom(ReadInteger('Введите размер массива->'),-100,100);             Write('Начальный массив: '); a.Println;
 a:=Range(1,a.Length-1,2).Select(i->a[i]).ToArray; Write('Конечный массив: ');     a.Println;
end.

Пример:
Введите размер массива-> 10
Начальный массив: -100 84 -35 -26 -33 63 36 22 60 89
Конечный массив: 84 -26 63 22 89