Question

Дан одномерный массив M из 10 элементов, сдвинуть его элементы на три позиции. Pascla

Answer 1

Const N = 10;var a: array [1..N] of longint;i,d,j:longint;begin  for  i:=1 to N do    read(a[i]);    for j:=1 to 3 do begin    d:=a[n];  for  i:=N downto 2 do    a[i] := a[i-1];  a[1]:=d;  end;  writeln('После сдвига: ');  for  i:=1 to N do    write(a[i],' ');  writeln;  end.

Answer 2

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

program ShiftArray;

const
  N = 10;

var
  M: array[1..N] of Integer;
  i, temp: Integer;

begin
  // Заполнение массива M произвольными значениями
  for i := 1 to N do
    M[i] := Random(100); // Здесь 100 - это просто для примера, вы можете использовать другие значения

// Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to N do
    write(M[i], ' ');
  writeln;

// Сдвиг элементов на три позиции вправо
  for i := 1 to 3 do
  begin
    temp := M[N];
    for j := N downto 2 do
      M[j] := M[j-1];
    M[1] := temp;
  end;

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

end.

Этот код создает массив `M` из 10 элементов, заполняет его случайными значениями от 0 до 99 и затем сдвигает элементы на три позиции вправо. Заметьте, что это просто один из способов сделать сдвиг, и в зависимости от ваших требований, вы можете выбрать другой метод реализации.