Question

Помогите написать программу в паскале. Заполните массив из N элементов случайными числами в интервале [1,N] так, чтобы в массив обязательно вошли все числа от 1 до N (постройте случайную перестановку). Пример: Массив: 3 2 1 4 5

Answer 1

//PascalABC.NET версия 3.4.0.1677 от 17.06.18

//Если программа не запускается, то обновите версию

const

   m = 99;

var

   n,i, j: integer;

   A,: Array[1..m] of integer;

begin

   Randomize;

   write('n = ');

   readln(n);

   

   for i := 1 to n do

   begin

       repeat

           j := Random(n) + 1

       until A[j] = 0;

       A[j] := i;

   end;

   

   for i := 1 to n do

       write(A[i]:3);

   writeln;

end.

Answer 2

Я могу помочь вам с написанием программы на Паскале, которая заполняет массив из N элементов случайными числами в интервале [1, N] так, чтобы в массиве были все числа от 1 до N. Это называется случайной перестановкой.

Существует несколько способов решить эту задачу, но я предложу вам один из них, который использует алгоритм тасования Кнута. Этот алгоритм начинается с произвольной перестановки (например, с тождественной, без перестановки элементов), и проходит с позиции 1 до позиции N − 1, переставляя элемент на позиции i со случайно выбранным элементом на позициях от i до N включительно. Этот алгоритм гарантирует, что все перестановки N элементов будут получены с равной вероятностью 1/ N !.

Вот пример кода на Паскале, который реализует этот алгоритм:

const
  N = 5; // размер массива
var
  A: array[1..N] of integer; // массив для перестановки
  i, j, t: integer; // переменные для цикла и обмена
begin
  randomize; // инициализация генератора случайных чисел
  // заполнение массива числами от 1 до N
  for i := 1 to N do
    A[i] := i;
  // тасование массива по алгоритму Кнута
  for i := 1 to N - 1 do
  begin
    // выбор случайного индекса от i до N
    j := i + random(N - i + 1);
    // обмен элементов A[i] и A[j]
    t := A[i];
    A[i] := A[j];
    A[j] := t;
  end;
  // вывод массива на экран
  for i := 1 to N do
    write(A[i], ' ');
  writeln;
end.

Вы можете запустить этот код и посмотреть, как он работает. Вы также можете изменить значение N, чтобы получить перестановку другого размера. Если вы хотите узнать больше о случайных перестановках и других способах их генерации, вы можете посмотреть эти ссылки:

- [Случайная перестановка — Википедия](https://ru.wikipedia.org/wiki/%D0%A1%D0%BB%D1%83%D1%87%D0%B0%D0%B9%D0%BD%D0%B0%D1%8F_%D0%BF%D0%B5%D1%80%D0%B5%D1%81%D1%82%D0%B0%D0%BD%D0%BE%D0%B2%D0%BA%D0%B0) - [Случайная перестановка элементов в массиве - PascalABC.NET - Киберфорум](https://www.cyberforum.ru/pascalabc-net/thread1074603.html)

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