Question

Паскаль. Массив заполнен случайными числами от a до b. Необходимо сдвинуть все элементы массива на 3 позиции вправо. Вывести массив.

Answer 1

Uses crt;
procedure swap(a, b: integer);
var t: integer;
begin
t := a;
a := b;
b := t;
end;

procedure right(mas: array[1..100] of integer);
var i: integer;
begin
for i:=100 downto 2 do
swap(mas[i],mas[i-1]);
end;

var mas : array[1..100] of integer;
a, b, i : integer;
begin
readln(a, b);
randomize();
for i:=1 to 100 do
mas[i]:=a + random(b-a);
right(mas);
right(mas);
right(mas);
for i:=1 to 100 do
writeln(mas[i]:5);
end.

Answer 2

var a, b, i :integer;
     s :array [1..10000] of integer;
begin
   readln (a, b);
   for i:=1 to b-a+1 do
      s[i]:=random(b-a+1)+a;
   for i:=b-a-1 to b-a+1 do write (s[i], ' ');
   for i:=1 to b-a-2 do write (s[i], ' ')
end.

Answer 3

Для решения данной задачи на языке Паскаль можно использовать следующий код:

const
  N = 10; // размер массива
  a = 1; // начальное значение диапазона случайных чисел
  b = 100; // конечное значение диапазона случайных чисел
  shift = 3; // количество позиций для сдвига

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

begin
  // Заполнение массива случайными числами
  for i := 1 to N do
    arr[i] := random(b - a + 1) + a;

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

// Сдвиг элементов массива на shift позиций вправо
  for i := N downto 1 do
    arr[i + shift] := arr[i];

// Заполнение первых shift элементов массива новыми случайными числами
  for i := 1 to shift do
    arr[i] := random(b - a + 1) + a;

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

В данном коде мы объявляем константы `N`, `a`, `b` и `shift`, которые определяют размер массива, диапазон случайных чисел и количество позиций для сдвига соответственно. Затем мы объявляем массив `arr` и переменную `i`.

Далее, с помощью цикла `for` мы заполняем массив случайными числами в заданном диапазоне. Затем мы выводим исходный массив.

После этого, с помощью еще одного цикла `for` мы сдвигаем элементы массива на `shift` позиций вправо. Для этого мы начинаем с последнего элемента массива и перезаписываем его значение в элемент с индексом `i + shift`. Затем мы заполняем первые `shift` элементов массива новыми случайными числами.

Наконец, мы выводим измененный массив.

Примечание: В данном коде используется функция `random`, которая генерирует случайное число в заданном диапазоне. При компиляции и запуске кода, необходимо убедиться, что функция `randomize` вызывается перед использованием функции `random`, чтобы инициализировать генератор случайных чисел.

Ниже представлен вывод программы для примера:

Исходный массив:
34 56 78 12 90 23 45 67 89 10 
Массив после сдвига:
90 23 45 67 89 10 34 56 78 12 

Пожалуйста, обратите внимание, что данный код является примером и может быть изменен или доработан в соответствии с вашими потребностями.