<u><em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em></u>
<u><em>// Внимание! Если программа не работает, обновите версию!</em></u>
begin
var a:=ArrRandom(12,-12,12); a.Println;
a:=a[1:6]+a[:1]+a[7:]+a[6:7]; a.Println
end.
<u>Пример</u>
3 12 5 -2 -5 4 0 1 -8 -3 -4 -12
12 5 -2 -5 4 3 1 -8 -3 -4 -12 0
Двоичная, восьмиричная и шестнадцатиричная
1100101(2) = 2^6+2^5+2^2+1=64+32+4+1=101(10)/