Question

Упорядочить данную последовательность по убыванию. Элементы вводятся с клавиатуры. Размер произвольный. (Паскаль, написать код)​

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Длина последовательности:');

 ReadSeqInteger('Вводи:', n).SortedDescending.Println

end.

Answer 2

Для упорядочивания последовательности чисел по убыванию в Pascal, вы можете использовать сортировку пузырьком (bubble sort) или другие алгоритмы сортировки. Вот пример кода с сортировкой пузырьком:

pascalCopy code
program SortDescending;
var
  arr: array of Integer;
  i, j, temp, n: Integer;
begin
  Write('Введите размер последовательности: ');
  Readln(n);

  SetLength(arr, n);

  // Ввод элементов последовательности
  for i := 0 to n - 1 do
  begin
    Write('Введите элемент ', i + 1, ': ');
    Readln(arr[i]);
  end;

  // Сортировка пузырьком по убыванию
  for i := 0 to n - 1 do
  begin
    for j := 0 to n - 2 - i do
    begin
      if arr[j] < arr[j + 1] then
      begin
        // Обмен элементов
        temp := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := temp;
      end;
    end;
  end;

  // Вывод отсортированной последовательности
  Writeln('Последовательность по убыванию:');
  for i := 0 to n - 1 do
    Write(arr[i], ' ');

  Readln;
end.

Этот код сначала запрашивает размер последовательности и вводит элементы с клавиатуры. Затем он сортирует последовательность по убыванию с помощью сортировки пузырьком и выводит отсортированный результат.