Дан массив к, содержащий 43 элемента, в интервале от -7 до 25. поменять местами элементы равноудаленные от центра.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  var K:=ArrRandom(43,-7,25); K.Println;
  K.Reverse.Println;
end.

Тестовое решение
21 4 3 1 -4 2 6 15 6 -7 20 11 1 18 10 20 16 -2 0 25 5 -3 1 24 3 -3 16 22 11 9 12 -1 22 16 6 -5 25 24 23 13 18 6 6
6 6 18 13 23 24 25 -5 6 16 22 -1 12 9 11 22 16 -3 3 24 1 -3 5 25 0 -2 16 20 10 18 1 11 20 -7 6 15 6 2 -4 1 3 4 21