Не используя других массивов, переставить элементы в массиве x[1..n] в обратном порядке

Автор: Захаров Андрей

Для перестановки элементов в массиве в обратном порядке, не используя других массивов, придется задействовать дополнительную переменную, которая и будет хранить временное значение одного из элементов массива.

program ReversMassiv;
const MaxN=100; {максимальное количество элементов в массиве}
var x: array[1..MaxN] of real;
    i,n,temp: integer;
begin
     write('Введите N: ');
     readln(n);
     {вводим значения элементов массива}
     for i:=1 to n do begin
        write('Введите ',i,'-элемент массива: ');
        readln(x[i]);
     end;
     
     {перебираем элементы массива с первого до середины (n div 2)}
     for i:=1 to (n div 2) do
         begin
              {запоминаем значение одного из элементов массива, которых мы хотим поменять местами}
              temp:=x[i];
	      {меняем местами}
              x[i]:=x[n-i+1];
              x[n-i+1]:=temp;
         end;

     {вывод получившегося массива}
     for i:=1 to n do write(x[i],' ');
end.