Как переставить первый чётный элемент в середину массива? (pascal)

ответ:

c++

for(int i=0; i

if(a[i]%2==0)

swap (a[i],a[n/2])

объяснение:

// pascalabc.net 3.3, сборка 1599 от 17.12.2017 // внимание! если программа не работает, обновите версию! function matread: array[,] of integer; begin   writeln('вводите элементы через пробел построчно');   result: =readmatrinteger(4,4) end; function partcount(a: array[,] of integer): =       a.elementswithindexes.where(t-> (t[0]=5) and t[1].isodd).count; begin   var a: =matread;   writeln('*** исходный массив ***');   a.println(6); writeln(6*a.colcount*'-');   writeln('искомых элементов: ',partcount(a)) end. пример вводите элементы через пробел построчно 34 12 21 5 0 3 12 5 -6 18 5 16 5 -15 16 7 *** исходный массив ***       34      12      21        5         0        3      12        5       -6      18        5      16         5    -15      16        7 искомых элементов: 2