Question

Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить циклический сдвиг влево отдельно для 1-й и 2-й половин массива.

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(12,-12,12); a.Println;
  a:=a[1:6]+a[:1]+a[7:]+a[6:7]; a.Println
end.

Пример
3 12 5 -2 -5 4 0 1 -8 -3 -4 -12
12 5 -2 -5 4 3 1 -8 -3 -4 -12 0

Answer 2

Заполнение массива случайными числами в интервале [-12..12]

Для заполнения массива из 12 элементов случайными числами в интервале [-12..12] воспользуемся языком программирования Pascal.

program RandomArray;

var
  arr: array[1..12] of integer;
  i: integer;

begin
  Randomize; // Инициализация генератора случайных чисел
  for i := 1 to 12 do
  begin
    arr[i] := Random(25) - 12; // Генерация случайного числа в интервале [-12..12]
  end;
end.

Циклический сдвиг влево для 1-й и 2-й половин массива

Для выполнения циклического сдвига влево для 1-й и 2-й половины массива, можно использовать следующий код на Pascal:

program RotateArray;

var
  arr: array[1..12] of integer;
  i, temp: integer;

begin
  // Инициализация массива arr (предполагается, что массив arr уже заполнен случайными числами)
  
  // Циклический сдвиг влево для 1-й половины массива
  for i := 1 to 6 do
  begin
    temp := arr[i];
    arr[i] := arr[i + 6];
    arr[i + 6] := temp;
  end;

// Циклический сдвиг влево для 2-й половины массива
  for i := 7 to 12 do
  begin
    temp := arr[i];
    arr[i] := arr[i - 6];
    arr[i - 6] := temp;
  end;
end.

Таким образом, массив arr будет содержать случайные числа в интервале [-12..12], а затем будет выполнен циклический сдвиг влево для 1-й и 2-й половины массива.