Question

Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000. Напишите подпрограмму, сдвинет элементы массива на 1 вправо (дополнительный массив не использовать).Например из массива: 1 2 3 4 5 6, получим 6 1 2 3 4 5.Размер массива заранее задан константой N. Используйте заголовок:procedure perest(var m:TMas);Тип ТMas задан как array[1..N] of integer и может использоваться для описания параметров подпрограмм.

Answer 1

procedure perest(var m:TMas);

var t, i: integer;

begin

 t := m[1];

 for i := 1 to n do

   m[i] := m[i - 1];

 m[n] := t

end;

Answer 2

Для сдвига элементов массива на 1 вправо без использования дополнительного массива, можно выполнить следующую процедуру:

pascalCopy code
procedure perest(var m: TMas);
var
  temp, i: integer;
begin
  // Сохраняем последний элемент массива во временной переменной
  temp := m[N];

  // Сдвигаем элементы массива вправо
  for i := N downto 2 do
    m[i] := m[i - 1];

  // Перемещаем временную переменную на первое место
  m[1] := temp;
end;

Где TMas - это тип массива, который задан как array[1..N] of integer, а N - константа, задающая размер массива.

Процедура perest принимает параметр m, который является массивом, и сдвигает его элементы на одну позицию вправо, циклически перенося последний элемент на первое место. Таким образом, после вызова данной процедуры, элементы массива будут сдвинуты на одну позицию вправо.