Паскаль abc.net поменять местами половинки массива - вопрос №110255544 от albina188 31.05.2023 02:36

Question

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

albina188 · Answer

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.Printlnend....