Даны 2 последовательности чисел а1, а2, ... , an и b1, b2, ... , bn . Сформулировать новые последовательности, элементы которых вычисляются по следующему правилу :

ai = ai + bi,
bi = ai - bi,
i = 1, 2, ..., n.

Предположительно так:

for i := 1 to n do begin
  a[i] := a[i] + b[i];
  b[i] := a[i] - 2 * b[i];
end;

ну тагда почему

b[i] := a[i] - 2 * b[i];

а не

b[i] := a[i] - b[i];

???

смотри

a[i] = 5; // a[i] + b[i] = 9;
b[i] = 4; // a[i] - b[i] = 1;

a[i] := a[i] + b[i] == 9;
b[i] := a[i] - b[i] == 5; // неувязочка вышла ....

b[i] := a[i] - 2 * b[i] = 9 - 2 * 4 = 9 - 8 = 1; // все OK

вроде ясна, спс

А если ...

for i := 1 to n do begin
  Avalue := a[i]; Bvalue := b[i];
  a[i] := Avalue + Bvalue;
  b[i] := Avalue - Bvalue;
end;

?

ммм мы ещё

Avalue := a[i]; Bvalue := b[i];


не прахадили (вроде)

============================
а так я понял, что писал klem4, фсё спс

Чего вы "не прахадили"? Присваивание значений переменным? Как же ты вообще программы пишешь?

Дык volvo, я так сначала хотел, но зачем 2 лишние переменные