Дан массив X[N] целых чисел. Не используя других массивов, переставить его элементы в обратном порядке.

program zz1;

const n = 6; / /задаем количество элементов в массиве

var i, s:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / записываем в массив числа случайным образом

m[i]:=random (46) - 15;

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

writeln;

for i:=1 to n div 2 do / / производим обмен элементов массива по принципу первый с последним, второй с предпоследним и т. д.

begin s:=m[i]; m[i]:=m[n+1-i]; m[n+1-i]:=s; end;

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

end.