Одномерный массив Опции

[Sonni]

В заданной вещественной последовательности поменяйте местами первый и последний элементы

[LOVE133]

Код

const n=10
var a:array[1..n] of real;
      q:real;
begin
q:=a[1];
a[1]:=a[n];
a[n]:=q;
end.

если это то , о чем я подумала...а так , какая последовательность ?

[Бродяжник]

или так (классика жанра)

const n=10
var a:array[1..n] of real;
begin
  a[1]:=a[1]+a[n];
  a[n]:=a[1]-a[n];
  a[1]:=a[1]-a[n];
end.