Створіть проєкт, у якому вводяться значення елементів одновимірного масиву (списку) з різних дійсних чисел, кількість яких не перевищує 50, ви- значається найменший, і він обмінюється місцями з третім елементом. Виведіть отриманий одновимірний масив (список)
Мова - Pascal ; Lazarus IDE
Ответы на вопрос
Ответ:
Ось код для виконання даного завдання на мові Pascal за допомогою Lazarus IDE:
program swap_array_elements;
const
MAX_SIZE = 50;
var
arr: array[1..MAX_SIZE] of real;
i, min_index: integer;
temp: real;
begin
// ввід масиву
writeln('Введіть елементи масиву: ');
for i := 1 to MAX_SIZE do
begin
readln(arr[i]);
end;
// пошук індексу мінімального елемента
min_index := 1;
for i := 2 to MAX_SIZE do
begin
if arr[i] < arr[min_index] then
min_index := i;
end;
// обмін місцями мінімального і третього елементів
temp := arr[1];
arr[1] := arr[min_index];
arr[min_index] := temp;
temp := arr[3];
arr[3] := arr[min_index];
arr[min_index] := temp;
// виведення масиву
writeln('Масив після обміну:');
for i := 1 to MAX_SIZE do
begin
write(arr[i]:0:2, ' ');
end;
writeln;
end.