Question

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

Мова - Pascal ; Lazarus IDE​

Answer 1

Ответ:

Ось код для виконання даного завдання на мові 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.