Дан целочисленный массив размера N (> 2). Удалить из массива все элементы с нечетными...

Question

Дан целочисленный массив размера N (> 2). Удалить из массива все элементы с нечетными номерами (1, 3, …).
Попробовал написать, но не получилось.
program project2;
var n,i, nech:integer;
A:array [1..10] of integer;
begin
n:=10;
for i:=1 to n do
begin
writeln('Vvedite a[',i,']');
readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then
nech:=i;
for i:=nech to n-1 do
a[i]:=a[i+1];
writeln('massiv imeet vid');
for i:=1 to n do writeln (a[i]);
end.

Answer 1

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a:=Range(1,a.Length-1,2).Select(i->a[i]).ToArray;
  a.Println
end.

Пример
n= 15
-31 20 -30 -1 -47 1 19 -47 32 36 -32 7 -43 -40 -23
20 -1 1 -47 36 7 -40

Comments

a.Println;
  a:=Range(1,a.Length-1,2).Select(i->a[i]).ToArray; МНЕ НЕ ТАК НАДО, МЫ ЭТО ЕЩЁ НЕ ПРОХОДИЛИ, МОЖНО ЛИ ДРУГИМ СПОСОБОМ, ТАК КАК ЭТОТ НЕ ПОДОЙДЁТ