Pascal! В одномерном массиве размерностью n=10 отсортировать по возрастанию четные элементы массива. Вывести исходный и измененный массив. Можно использовать любой метод сортировки.

Program newmassiv;

uses crt;

type

matr=array[1 ... 10] of integer;

var

a: matr;

procedure vvod (var a:matr);

var

i: integer;

begin

for i:=1 to 10 do

begin

write ('Введите элемент массива a[', i,']');

readln (a[i]);

end;

end;

procedure ivyvod (var a: matr);

var i: integer;

begin

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

for i:=1 to 10 do

write (a[i],' ');

writeln;

end;

procedure sort (var a:matr);

var

i, j, min: byte; vsp: integer;

begin

for i:=1 to 9 do

begin

min:=i;

for j:=i+1 to 10 do

if a[j]
vsp:=a[i]; a[i]:=a[min]; a[min]:=vsp;

end;

end;

procedure vyvod (a:matr);

var

i:integer;

begin

write ('Отсортированная последовательность массива ');

for i:=1 to 10 do

begin

if a[i] mod 2 = 0 then write (' ', a[i]);

end;

end;

begin

vvod (a);

ivyvod (a);

sort (a);

vyvod (a);

end.