Напишите программу на языке Паскаль для решения следующей задачи:Дан массив вещественных чисел из 10 элементов. Поменять в нем первый элемент массива с последним.Пример:Входные данные:2,3,-4,5,-6,2,-5,7,-9,-3Выходные данные:-3,3,-4,5,-6,2,-5,7,-9,2

Предыдущий
вопрос Следующий
вопрос

program SwapFirstAndLastElement;

var
arr: array[1..10] of real;
i: integer;
temp: real;

begin
// Ввод элементов массива
writeln('Введите 10 вещественных чисел:');
for i := 1 to 10 do
readln(arr[i]);

// Обмен первого и последнего элементов
temp := arr[1];
arr[1] := arr[10];
arr[10] := temp;

// Вывод измененного массива
writeln('Измененный массив:');
for i := 1 to 10 do
write(arr[i], ' ');

end.