Question

Напишите программу на языке Паскаль для решения следующей задачи:
Дан массив вещественных чисел из 10 элементов. Поменять в нем первый элемент массива с последним.

Пример:
Входные данные:
2,3,-4,5,-6,2,-5,7,-9,-3
Выходные данные:
-3,3,-4,5,-6,2,-5,7,-9,2

Answer 1

program g;
const n = 10;
var a:array [1..n] of real;
i:integer;
s: real;
begin
for i:=1 to n do
 read(a[i]);

s:= a[1];
a[1]:=a[10];
a[10]:=s;

for i:=1 to n do
 write(a[i]+',');
end.