Удалить из массива все элементы, последняя цифра которых нечетная и сжать массив

[Proskurina]

Удалить из массива все элементы, последняя цифра которых нечетная и сжать массив.(через процедуры и функции)

[Sciv]

Давайте массив - удалю.

[Proskurina]

нет.. условие другое

[BDA]

Основная идея:

j:=1;
for i:=1 to n do
    if a[i] mod 2 = 0 then 
    begin
        a[j]:=a[i];
        inc(j);
    end;
n:=j-1;

После выполнения n станет новой длиной массива.

[Proskurina]

а можно полностью весь код) плиз))