Код:
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('Вихідний масив:');
write(arr[i]:4:2, ' ');
writeln;
// Сортування методом вибору
for i := 1 to n-1 do
minIndex := i;
for j := i+1 to n do
if arr[j] < arr[minIndex] then
minIndex := j;
end;
if minIndex <> i then
temp := arr[i];
arr[i] := arr[minIndex];
arr[minIndex] := temp;
// Виведення відсортованого масиву
writeln('Відсортований масив:');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Код:
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.