Паскаль abc.net
поменять местами половинки массива (если число элементов n четное, то 1ый элемент надо поменять с (n/2+1), 2ой- с (n/2+2) и т.д.; если число элементов n нечетное , то центральный элемент остается на месте)
дада211
3
27.11.2019 06:37
4
Другие вопросы по теме Информатика
Maqa11
11.04.2021 14:32
ЗейнабАхундзаде
04.12.2019 22:12
Hackerywka
04.12.2019 22:07
anzoroglyan1
05.07.2019 19:40
Азрет2002
05.07.2019 19:40
666Default666
22.06.2020 21:21
David3464
22.06.2020 21:07
qmess10
02.12.2021 17:51
Mrmr56
02.12.2021 17:53
Популярные вопросы
- Решите! банк принимает деньги на хранение и в конце года обновляет счет...
2 - План описания реки парана. 1.в какой части материка течёт? 2.где берет начало.куда...
2 - Решите всё по столбику 53.4: 15+224: 100-36: 8...
3 - Что означает знак возьмите за х см один из катетов(пусть меньший), тогда...
3 - Як зміниться яскравість свічення лампочки л якщо її включити в електричне...
3 - Хлорпроизводное бензола массой 22,05 г содержит 10,65 г хлора.определите...
2 - Выпишите значение голосеменных растений в жизни человека и для природы 1)для...
2 - Две ракеты отдаляются друг от друга со скоростями 0,6 с относительно неподвижного...
1 - Трачу все проведите научное исследование а тему ,,влияние н.в.гоголя на...
2 - Из двух городов навстречу друг другу вышли 2 пешехода первый пешеход двигался...
3
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.