Question

РЕБЯТ, Помогите! Программа паскаль.Дан массив целых чисел. Сдвинуть его циклически на один элемент вправо.

Answer 1

Const n = 10;
Var m : array[1..n] of Integer;
  i,k : Integer;
Begin
  For i:=1 to n do
  Begin
    m[i]:=i;
    Write(m[i],' ');
  end;
  Writeln;
 
  k:=m[n];
  For i:=n downto 2 do m[i]:=m[i-1];
  m[1]:=k;
 
  For i:=1 to n do Write(m[i],' ');
  Writeln;
end.

Answer 2

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

program ShiftArray;
const
  N = 5; // размер массива
var
  arr: array[1..N] of Integer; // объявление массива
  temp: Integer; // временная переменная для хранения последнего элемента
  i: Integer; // счетчик цикла

begin
  // заполнение массива
  for i := 1 to N do
  begin
    Write('Введите элемент ', i, ': ');
    Readln(arr[i]);
  end;

// сдвиг массива на один элемент вправо
  temp := arr[N]; // сохраняем последний элемент
  for i := N downto 2 do
    arr[i] := arr[i - 1]; // сдвигаем элементы вправо
  arr[1] := temp; // помещаем последний элемент на первое место

// вывод массива после сдвига
  Writeln('Массив после сдвига:');
  for i := 1 to N do
    Write(arr[i], ' ');

Readln;
end.

В этом коде мы сначала заполняем массив `arr` с помощью цикла `for`. Затем мы сохраняем последний элемент массива во временной переменной `temp`. Далее, с помощью цикла `for` в обратном порядке, мы сдвигаем элементы массива вправо, начиная со второго элемента. Наконец, мы помещаем сохраненный последний элемент на первое место массива.

После сдвига массива, мы выводим его элементы с помощью цикла `for` и функции `Write`.

Пример ввода и вывода:

Введите элемент 1: 1
Введите элемент 2: 2
Введите элемент 3: 3
Введите элемент 4: 4
Введите элемент 5: 5
Массив после сдвига:
5 1 2 3 4

Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.