Question

ПАСКАЛЬ ABC.NET

Поменять местами половинки массива (если число элементов n четное, то 1ый элемент надо поменять с (n/2+1), 2ой- с (n/2+2) и т.д.; Если число элементов n нечетное , то центральный элемент остается на месте)

Answer 1

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -10, 99);

 a.Println;

 var k := n div 2;

 if n.IsEven then

   a := a[k:] + a[:k]

 else

   a := a[k + 1:] + Arr(a[k]) + a[:k];

 a.Println

end.