Складіть проєкт для введення значень елементів одновимірного ма- сиву з 20 дійсних чисел, впорядкування цього масиву за незростанням методом обміну і виведення впорядкованого. В lazarus (pascal) Складіть код
Ответы
Ответ дал:
0
Ответ:
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.
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад