Дан целочисленный линейный массив. Удалить из него последний четный элемент.

Uses Crt;

const

n=15;

var

a:array[1 ... n] of integer;

i, j, k, t:integer;

found:boolean;

begin

ClrScr;

Randomize;

Writeln ('Исходный массив:') ;

for i:=1 to n do begin

a[i]:=Random (90) + 1;

Write (a[i],' ')

end;

Writeln;

i:=n; found:=False;

repeat

found: = (a[i] mod 2=0) ;

if (not found) then Dec (i)

until found or (i=0) ;

if found then begin

for i:=i to n-1 do a[i]:=a[i+1];

Writeln ('Результирующий массив:') ;

for i:=1 to n-1 do Write (a[i],' ')

end;

ReadKey

end.

Тестовое решение:

Исходный массив:

60 90 39 83 24 70 82 53 45 5 12 9 85 57 47

Результирующий массив:

60 90 39 83 24 70 82 53 45 5 9 85 57 47