Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

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

Код

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.