Question

Відкрийте середовище програмування Lazarus.

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

Answer 1

Код:

program SelectionSort;

const

 n = 8; // розмір масиву

var

 arr: array[1..n] of real;

 i, j, minIndex: integer;

 temp: real;

begin

 // Заповнення масиву випадковими числами

 randomize;

 for i := 1 to n do

   arr[i] := random(100);

 // Виведення вихідного масиву

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

 for i := 1 to n do

   write(arr[i]:4:2, ' ');

 writeln;

 // Сортування методом вибору

 for i := 1 to n-1 do

 begin

   minIndex := i;

   for j := i+1 to n do

   begin

     if arr[j] < arr[minIndex] then

       minIndex := j;

   end;

   if minIndex <> i then

   begin

     temp := arr[i];

     arr[i] := arr[minIndex];

     arr[minIndex] := temp;

   end;

 end;

 // Виведення відсортованого масиву

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

 for i := 1 to n do

   write(arr[i]:4:2, ' ');

 writeln;

end.