Question

Массив сформирован случайным образом из целых чисел в диапазоне от 0 до 9. Отсортировать его элементы в порядке возрастания значений. Нужно решить через паскаль помогите

Answer 1

Ответ:

Объяснение:

var

  arr: array[0..9] of byte;

  max, k, i, j: byte;

begin

  j := 9;

  randomize;

  for i := 1 to 9 do begin

      arr[i] := random(10);

      write(arr[i]:4)

  end;

  writeln;

  while j > 1 do begin

      k := 1;

      for i := 2 to j do

          if arr[i] > arr[k] then

              k := i;

      max := arr[k];

      arr[k] := arr[j];

      arr[j] := max;

      j := j - 1

  end;

  for i := 1 to 9 do

      write(arr[i]:4);

  writeln;

end.

Answer 2

Конечно, я могу помочь вам с решением данной задачи на языке Pascal. Вот пример кода, который сортирует массив методом пузырьковой сортировки:

pascalCopy code
program BubbleSort;

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

type
  IntArray = array[1..N] of Integer;

var
  arr: IntArray;
  i, j, temp: Integer;

procedure Swap(var a, b: Integer);
var
  temp: Integer;
begin
  temp := a;
  a := b;
  b := temp;
end;

begin
  // Заполняем массив случайными числами от 0 до 9
  Randomize;
  for i := 1 to N do
    arr[i] := Random(10);

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

  // Пузырьковая сортировка
  for i := 1 to N - 1 do
    for j := 1 to N - i do
      if arr[j] > arr[j + 1] then
        Swap(arr[j], arr[j + 1]);

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

Вы можете скопировать этот код в среду программирования на Pascal (например, Free Pascal) и выполнить его. Программа создает массив из случайных чисел, сортирует его методом пузырьковой сортировки и выводит исходный и отсортированный массивы на экран.