Выполнить сортировку только четных элементов массива(нечетные элементы остаются на своих местах)

// pascalabc.net 3.2, сборка 1385 от 14.02.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n='),10,99); a.println;   var b: =a.where((x,i)-> i.iseven).interleave(a.where((x,i)-> i.isodd).sorted);   if a.count< > b.count then b: =b+a.last;   b.println end. пример n= 11 89 78 46 90 11 45 56 94 41 37 77 89 37 46 45 11 78 56 90 41 94 77

// pascalabc.net 3.2, сборка 1374 от 10.01.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** матрица а ***');   var a: =matrrandom(4,7,-50,50); a.println(4);   writeln('*** матрица b ***');   var b: =matrrandom(4,7,-50,50); b.println(4);   writeln(4*a.colcount*'-');   writeln('*** матрица а-b ***');   for var i: =0 to 3 do begin       for var j: =0 to 6 do write(a[i,j]-b[i,j]: 4);       writeln       end; end. пример *** матрица а ***   11 -12 -37  22    3  -8  16   -2  21  31    4  -1  13  20   18 -42 -46 -17  19    8 -14   -26 -32  -2  31 -26 -43 -31 *** матрица b ***   13 -14  12 -37    2 -12  34   26  25 -47    2 -42    1 -43   44  -6  -1  24  37  -9  -3   -30    3 -29 -39 -11  -8 -14 *** матрица а-b ***   -2    2 -49  59    1    4 -18   -28  -4  78    2  41  12  63   -26 -36 -45 -41 -18  17 -11     4 -35  27  70 -15 -35 -17