Форум «Всё о Паскале» > Одномерный массив

Sonni

19.05.2006 18:01

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

LOVE133

19.05.2006 18:08

Код

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

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

Бродяжник

19.05.2006 18:54

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

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.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.