Паскаль abc.net поменять местами половинки массива - вопрос №10256221 от тигрц28 26.12.2022 13:46

Question

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

тигрц28 · 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....