Question

массив заполняется случайно по возрастанию. выводится на экран. перемешивается. выводится на экран. Составить программу. Паскаль ​

Answer 1

Ответ:

вот думаю правильно фото якщо розмито пиши

Answer 2

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

1. Создайте массив и заполните его случайными числами в возрастающем порядке. Для этого вы можете использовать цикл `for` и функцию `Random` для генерации случайных чисел. Присвойте каждому элементу массива значение, увеличивающееся на единицу по сравнению с предыдущим элементом. Пример кода для заполнения массива:

   const n = 10; // размер массива
   var arr: array[1..n] of integer;
   var i: integer;
   
   for i := 1 to n do
   begin
       arr[i] := i;
   end;
   

2. Выведите массив на экран. Для этого используйте цикл `for` и функцию `WriteLn` для вывода каждого элемента массива на новой строке. Пример кода для вывода массива:

   for i := 1 to n do
   begin
       WriteLn(arr[i]);
   end;
   

3. Перемешайте элементы массива. Для этого используйте алгоритм Фишера-Йетса. Пример кода для перемешивания массива:

   var j, temp: integer;
   
   for i := n downto 2 do
   begin
       j := Random(i) + 1;
       temp := arr[i];
       arr[i] := arr[j];
       arr[j] := temp;
   end;
   

4. Выведите перемешанный массив на экран. Используйте тот же код, что и в шаге 2.

Вот полный код программы на языке Pascal:

program RandomArray;

const
  n = 10; // размер массива

var
  arr: array[1..n] of integer;
  i, j, temp: integer;

begin
  // Заполнение массива
  for i := 1 to n do
  begin
    arr[i] := i;
  end;

// Вывод исходного массива
  WriteLn('Исходный массив:');
  for i := 1 to n do
  begin
    WriteLn(arr[i]);
  end;

// Перемешивание массива
  for i := n downto 2 do
  begin
    j := Random(i) + 1;
    temp := arr[i];
    arr[i] := arr[j];
    arr[j] := temp;
  end;

// Вывод перемешанного массива
  WriteLn('Перемешанный массив:');
  for i := 1 to n do
  begin
    WriteLn(arr[i]);
  end;
end.

Вы можете скопировать этот код и запустить его в среде разработки Pascal для проверки.

Answer 3

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

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

program RandomArray;

const
  N = 10; // Размер массива

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

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

// Выводим исходный массив на экран
  Writeln('Исходный массив:');
  for i := 1 to N do
    Write(arr[i], ' ');
  Writeln;

// Сортируем массив по возрастанию
  for i := 1 to N - 1 do
    for j := i + 1 to N do
      if arr[i] > arr[j] then
      begin
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;

// Выводим отсортированный массив на экран
  Writeln('Отсортированный массив:');
  for i := 1 to N do
    Write(arr[i], ' ');
  Writeln;

// Перемешиваем массив
  for i := 1 to N do
  begin
    j := Random(N) + 1;
    temp := arr[i];
    arr[i] := arr[j];
    arr[j] := temp;
  end;

// Выводим перемешанный массив на экран
  Writeln('Перемешанный массив:');
  for i := 1 to N do
    Write(arr[i], ' ');
  Writeln;

Readln;
end.

В этой программе мы используем массив `arr` размером `N` (в данном примере `N = 10`). Сначала мы заполняем массив случайными числами с помощью функции `Random`. Затем мы сортируем массив по возрастанию с помощью алгоритма сортировки пузырьком. После этого мы перемешиваем массив, меняя местами элементы случайным образом. И, наконец, выводим исходный массив, отсортированный массив и перемешанный массив на экран.

Вы можете изменить размер массива `N` и максимальное значение случайного числа в программе в соответствии с вашими требованиями.

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