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

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

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

Автор: 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.