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