Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания. - Pascal ABC

Формулировка задачи:

Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.

                    Листинг программы
                
 
                        
                          
                    
Program P1;
  uses crt;
const
  n_max = 100;
var
  a: array[1..n_max] of integer;
  n, m, i, j, q, pos: integer;
  t: boolean;
  max, tmp: integer;
begin
  write('Введите размерность массива: ');
  readln(n);
  WriteLn ('Введите элементы массива');
  for i := 1 to n do
  begin
    a[i] := -n_max div 2 + n_max;
    write('A[',i,']= ');
    ReadLn (A[i]);
    if a[i] > max then
    begin
      max := a[i];
      pos := i;
    end;
  end;
  writeln;
  i := 1;
  while (i < n) and not t do
  begin
    if a[i] < a[i + 1] then
      t := true;
    inc(i);
  end;
  for j := 1 to n - 1 do
    for q := j + 1 to n do
      if a[j] > a[q] then
      begin
        tmp := a[j];
        a[j] := a[q];
        a[q] := tmp;
      end;
  writeln('Отсортированный массив: ');
  for i := 1 to n do
    write(a[i]:5);
end.

Решение задачи: «Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.»

Листинг программы

const
  n_max = 100;
 
var
  a: array[1..n_max] of integer;
  n, i, j, q: integer;
  tmp: integer;
 
begin
  write('Введите размерность массива: ');
  readln(n);
  WriteLn('Введите элементы массива');
  for i := 1 to n do
  begin
    write('A[', i, ']= ');
    ReadLn(A[i]);
  end;
  writeln;
  for j := 1 to n - 1 do
    for q := j + 1 to n do
      if a[j] > a[q] then
      begin
        tmp := a[j];
        a[j] := a[q];
        a[q] := tmp;
      end;
  writeln('Отсортированный массив: ');
  for i := 1 to n do
    write(a[i]:5);
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

n_max - максимальное значение для индекса массива (не используется в данном коде);
a - массив целых чисел (целочисленный вектор) размером от 1 до n_max;
n - текущая размерность массива;
i - переменная для итерации по элементам массива;
j - переменная для итерации по элементам массива;
q - переменная для итерации по элементам массива;
tmp - временная переменная для хранения значения, которое будет помещено в другую позицию в массиве при обмене элементов; Код начинается с запроса у пользователя размера массива и его элементов. Затем происходит итерация по каждому элементу массива, где пользователь вводит значение элемента. После этого выполняется алгоритм сортировки методом просеивания. Алгоритм сортировки методом просеивания заключается в том, что на каждой итерации сравниваются два соседних элемента массива. Если текущий элемент больше следующего, то они меняются местами. Этот процесс повторяется до тех пор, пока все элементы не будут отсортированы. В данном коде алгоритм сортировки методом просеивания реализован с помощью двух вложенных циклов. Внешний цикл выполняется n-1 раз, где n - текущая размерность массива. Внутренний цикл выполняется n-1 раз, где n - текущая размерность массива. На каждой итерации внутреннего цикла происходит сравнение и обмен элементов. После выполнения алгоритма сортировки выводится отсортированный массив.