Дан целочисленный массив размера 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.