// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var n:=ReadInteger('n=');
if n.IsOdd then Inc(n);
var a:=ArrRandom(n,10,99); a.Println;
a:=a[:n div 2].Reverse.Concat(a[n div 2:].Reverse).ToArray;
a.Println
end.
Тестовое решение
n= 10
97 15 37 76 63 91 73 47 40 39
63 76 37 15 97 39 40 47 73 91