Question

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

Answer 1

//PascalABC.NET версия 3.4.2.1991 от 03.03.19

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

const

   m = 99;

var

   n, s, d, i, j: integer;

   A, B: 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

Конечно, вот пример кода на языке программирования Pascal (Free Pascal), который создает массив из N элементов и заполняет его случайными числами в интервале [1, N] так, чтобы в массив обязательно входили все числа от 1 до N:

pascalCopy code
program FillArray;
var
  N, i, j, temp: Integer;
  arr: array of Integer;
begin
  Write('Введите размер массива N: ');
  ReadLn(N);

  // Выделение памяти под массив
  SetLength(arr, N);

  // Заполнение массива от 1 до N
  for i := 0 to N - 1 do
    arr[i] := i + 1;

  // Перемешивание массива случайным образом
  for i := 0 to N - 1 do
  begin
    j := Random(N);
    temp := arr[i];
    arr[i] := arr[j];
    arr[j] := temp;
  end;

  // Вывод массива
  WriteLn('Массив:');
  for i := 0 to N - 1 do
    Write(arr[i], ' ');

  ReadLn;
end.

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