Дана последовательность чисел s1, s2 ..., Sn. Нужно вывести её на экран в прямом и обратном порядке, что бы выглядело так s1, s2, ..., sn, ... s2, s1.

Суть решения: вариантов решения уйма, но самый простой и понятный - считать числа и записать в массив, потом просто вывести этот массив так, как просят в условии.

Реализация в PascalABC:

var n, i: integer;

a:array [1 ... 1000000] of integer; / / достаточно большой массив

begin

read (n);

for i:=1 to n do

read (a[i]); //считываем последовательность чисел

for i: = 1 to n do write (a[i], ' '); / /выводим последовательность в порядке от первого до последнего / /элемента

for i:=n-1 downto 1 do write (a[i], ' '); //выводим массив с конца, но не выводим последний член, так как / /он уже записан

end.