В массиве удалить все элементы, имеющие нечетные значения.паскальпожалуйстааа

Question

В массиве удалить все элементы, имеющие нечетные значения.паскальпожалуйстааа

Answer 1

const n = 10;

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

i, k, j: integer;

begin

randomize;

for i:=1 to n do

begin

a[i] := random(31);

write(a[i],'  ')

end;

writeln;

i := 1;

k := n;

while i

if a[i] mod 2 <> 0 then

begin

k := k-1;

for j:=i to k do a[j] := a[j+1]

end

else i := i+1;

for i:=1 to k do write(a[i],'  ');

end.