Question

Складіть проєкт для введення значень елементів одновимірного ма- сиву з 20 дійсних чисел, впорядкування цього масиву за незростанням методом обміну і виведення впорядкованого. В lazarus (pascal) Складіть код

Answer 1

Ответ:

program BubbleSort;

var

 arr: array[1..20] of Real;

 i, j: Integer;

 temp: Real;

begin

 // Введення значень елементів масиву

 writeln('Введіть 20 дійсних чисел: ');

 for i := 1 to 20 do

   readln(arr[i]);

 // Сортування методом обміну за незростанням

 for i := 1 to 19 do

   for j := i + 1 to 20 do

     if arr[i] < arr[j] then

     begin

       temp := arr[i];

       arr[i] := arr[j];

       arr[j] := temp;

     end;

 // Виведення впорядкованого масиву

 writeln('Відсортований масив:');

 for i := 1 to 20 do

   writeln(arr[i]);

end.