Question

Внесите изменения в программу, чтобы выполнялась сортировка массива по убыванию. Реализуйте программу в среде Паскаль. СРОЧНО ПОМОГИТЕ!!! ДАМ 25 БАЛЛОВ

Answer 1

Вот пример программы на Pascal, которая реализует сортировку массива целых чисел по убыванию:

program SortArray;

const

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

var

 A: array[1..N] of integer;  // массив

 i, j, temp: integer;  // вспомогательные переменные

begin

 // инициализация массива

 for i := 1 to N do

   A[i] := random(100);

 // сортировка массива методом пузырька

 for i := 1 to N-1 do

   for j := 1 to N-i do

     if A[j] < A[j+1] then begin

       temp := A[j];

       A[j] := A[j+1];

       A[j+1] := temp;

     end;

 // вывод отсортированного массива на экран

 for i := 1 to N do

   writeln(A[i]);

end.

В этой программе используется алгоритм сортировки массива методом пузырька. Он проходит по массиву несколько раз, сравнивая пары соседних элементов и меняя их местами, если нужно. Этот алгоритм не самый эффективный, но он прост в реализации и подходит для небольших массивов.

Чтобы сортировать массив по убыванию, нужно поменять условие сравнения элементов массива в цикле. Вместо if A[j] < A[j+1] then нужно использовать if A[j] > A[j+1] then. Это условие будет означать, что элементы меняются местами, если первый элемент больше второго.

Вот нужная версия программы:

program SortArray;

const

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

var

 A: array[1..N] of integer;  // массив

 i, j, temp: integer;  // вспомогательные переменные

begin

 // инициализация массива

 for i := 1 to N do

   A[i] := random(100);

 // сортировка массива методом пузырька

 for i := 1 to N-1 do

   for j := 1 to N-i do

     if A[j] > A[j+1] then begin

       temp := A[j];

       A[j] := A[j+1];

       A[j+1] := temp;

     end;

 // вывод отсортированного массива на экран

 for i := 1 to N do

   writeln(A[i]);

end.

Теперь программа будет сортировать массив по убыванию.

Answer 2

Конечно! Вот пример программы на языке Паскаль, который выполняет сортировку массива по убыванию с использованием алгоритма сортировки пузырьком:

pascalCopy code
program СортировкаПоУбыванию;

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

var
  arr: array[1..N] of Integer;
  i, j, temp: Integer;

begin
  // Ввод элементов массива
  writeln('Введите ', N, ' элементов массива:');
  for i := 1 to N do
    readln(arr[i]);

  // Сортировка массива по убыванию
  for i := 1 to N - 1 do
  begin
    for j := 1 to N - 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 := 1 to N do
    writeln(arr[i]);
end.

Эта программа считывает 10 элементов массива с клавиатуры, сортирует его по убыванию с использованием алгоритма сортировки пузырьком и выводит отсортированный массив на экран. Если вы хотите изменить размер массива, измените значение константы N и соответствующим образом измените циклы for.