Дан массив состоящий из 10 элементов. Вывести на экран сначала элементы, имеющие чётные значения, затем элементы, имеющие нечётные значения.

Const

n = 10;

var

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

i: integer;

begin

for i : = 1 to n do

begin

a[i] : = random (100) - 50;

write (a[i], ' ') ;

end;

writeln () ;

for i : = 1 to n do

if i mod 2 = 0 then

write (a[i], ' ') ;

writeln () ;

for i : = 1 to n do

if i mod 2 = 1 then

write (a[i], ' ') ;

end.