Question

Заполнить массив случайными числами и выполнить сортировку по возрастанию. Pascal abs.net.

Answer 1

Программа на скрине! Надеюсь помог!

Answer 2

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

program RandomArraySort;

var
  arr: array of Integer;
  i: Integer;

begin
  // Определение размера массива
  SetLength(arr, 10);

// Заполнение массива случайными числами
  Randomize;
  for i := 0 to Length(arr) - 1 do
    arr[i] := Random(100);

// Вывод исходного массива
  WriteLn('Исходный массив:');
  for i := 0 to Length(arr) - 1 do
    Write(arr[i], ' ');
  WriteLn;

// Сортировка массива по возрастанию
  for i := 0 to Length(arr) - 2 do
    for j := i + 1 to Length(arr) - 1 do
      if arr[i] > arr[j] then
      begin
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;

// Вывод отсортированного массива
  WriteLn('Отсортированный массив:');
  for i := 0 to Length(arr) - 1 do
    Write(arr[i], ' ');
  WriteLn;

end.

В этом коде мы сначала определяем размер массива с помощью `SetLength(arr, 10)`, где `10` - это количество элементов в массиве. Затем мы используем `Randomize` для инициализации генератора случайных чисел. Затем мы заполняем массив случайными числами с помощью `Random(100)`, где `100` - это максимальное значение случайного числа.

После заполнения массива мы выполняем сортировку массива по возрастанию с помощью алгоритма сортировки пузырьком. Затем мы выводим исходный и отсортированный массивы на экран с помощью `WriteLn`.

Примечание: В PascalABC.NET вы можете использовать `Random` для генерации случайных чисел и `SetLength` для определения размера массива.