напишите программу, которая переставляет элементы массива в обратном порядке без использования дополнительного массива. программа должна считать массив, поменять порядок его элементов, затем вывести результат (просто вывести элементы массива в обратном порядке – недостаточно! )

входные данные
сначала задано число n — количество элементов в массиве (1n35). далее через пробел записаны n чисел — элементы массива. массив состоит из целых чисел.

выходные данные
необходимо вывести массив, полученный после перестановки элементов.


примеры

входные данные

6

4 5 3 4 2 3


выходные данные

3 2 4 3 5 4


нужно в паскале!

50

получилось довольно криво, но вот

var a : array [1..255] of integer;

n, i: integer;

begin

read(n);

for i : = 1 to n do

  read(a[i]);

for i : = 1 to trunc(n / 2) do begin

  a[i] += a[n - i + 1];

  a[n - i + 1] : = a[i] - a[n - i + 1];

  a[i] -= a[n - i + 1];

end;

for i : = 1 to n do

  write(a[i], ' ');

end.

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.

я попробывала у меня получилось имя даша