Оператор присваивания

[BaNNeD]

Здаров всем!
вот код!

program qw1;
var a:array [1..5] of integer;
i,g:integer;
begin
for i:=1 to 5 do
read(a[i]);
g:=a[1];
a[1]:=a[5];
a[5]:=g;
for i:=1 to 5 do
writeln('a[',i,']=',a[i]);
end.

Поменять первый и последний элементы массива местами, не используя дпополнительных переменных.

Это так???

program qw2;
var a:array [1..5] of integer;
i:integer;
begin
for i:=1 to 5 do
read(a[i]);
i:=a[1];
a[1]:=a[5];
a[5]:=i;
for i:=1 to 5 do
writeln('a[',i,']=',a[i]);
end.

я незнаю уже мен это в мозг не лезит как это не исползовать дополнительные переменные?

[Z1000000]

Намекаю...

a:=a+b;
b:=a-b;
a:=a-b;

[BaNNeD]

Сообщение от Z1000000

Намекаю...

a:=a+b;
b:=a-b;
a:=a-b;

Спасибо но уже нашел решение =) просто инет тупил чтобы ответ выкласть