Question

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

Answer 1

Const m=200;
var a: array[1..m] of integer;
    i,j,n: integer;
begin
   write('количество элементов массива:  ');
   readln(n);
   randomize;
   write('массив:  ');
   for i:=1 to n do
   begin
     a[i]:=random(40);
     write(a[i],' ');
   end;
   writeln;
   write('отсортированный массив:  ');  
   for i:=1 to n-1 do
   for j:=i+1 to n do
   if a[i]>a[j] then swap(a[i],a[j]);
   for i:=1 to n do write(a[i],' ');
end.   

количество элементов массива:  10
массив:  32 2 10 22 2 13 25 6 15 6 
отсортированный массив:  2 2 6 6 10 13 15 22 25 32 

Answer 2

Для упорядочивания элементов в одномерном массиве по возрастанию в языке Pascal можно использовать алгоритм сортировки пузырьком.

Сортировка пузырьком заключается в том, чтобы последовательно сравнивать соседние элементы и менять их местами, если они находятся в неправильном порядке. При каждой итерации самый большой элемент всплывает на последнюю позицию в массиве. Алгоритм повторяется n-1 раз.

Вот пример кода, реализующего сортировку пузырьком в Pascal:

Program BubbleSort;
var
  arr: array of Integer;
  i, j, temp, n: Integer;
begin
  Write('Введите размер массива: ');
  ReadLn(n);
  
  // Создаем массив заданного размера
  SetLength(arr, n);
  
  // Заполняем массив случайными числами
  Randomize;
  for i := 0 to n - 1 do
    arr[i] := Random(100);
  
  // Выводим исходный массив
  Write('Исходный массив: ');
  for i := 0 to n - 1 do
    Write(arr[i], ' ');
  WriteLn;
  
  // Сортируем массив методом пузырька
  for i := 0 to n - 2 do
    for j := 0 to n - 2 - i do
      if arr[j] > arr[j + 1] then
      begin
        temp := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := temp;
      end;
  
  // Выводим отсортированный массив
  Write('Отсортированный массив: ');
  for i := 0 to n - 1 do
    Write(arr[i], ' ');
  WriteLn;
end.

В данном коде пользователю сначала предлагается ввести размер массива. Затем создается массив заданного размера и заполняется случайными числами от 0 до 99. Исходный массив выводится на экран.

Затем применяется алгоритм сортировки пузырьком с помощью двух вложенных циклов. Внешний цикл выполняется n-1 раз, где n - размер массива. Внутренний цикл сравнивает соседние элементы и, если они находятся в неверном порядке, меняет их местами. После каждой итерации внутреннего цикла самый большой элемент всплывает на последнюю позицию. Когда внешний цикл завершается, массив становится упорядоченным по возрастанию.

Отсортированный массив выводится на экран.