Question

Дана последовательность чисел А длины N. Требуется вывести в обратном порядке.
Первая строка входного файла содержит целое число N (1 <= N <= 1000000) - длину
последовательности. Вторая строка входного файла содержит N целых чисел - элементы
последовательности A. Все элементы последовательности не превосходят 100000 по
абсолютному значению.
В единственной строке выходного файла выведите элементы последовательности A в
обратном порядке. Для наглядности обратите внимание на примеры.

Answer 1

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadlnInteger;
  var a:=ReadArrInteger(n);
  a.Reverse.Println
end.

Пример
10
1 3 2 4 7 5 0 6 9 8
8 9 6 0 5 7 4 2 3 1

Answer 2

Var
a: array of -100000..100000;
n, i: longint;
input, output : text;
begin
assign (input, 'input.txt');
assign (output, 'output.txt');
reset (input);
rewrite (output);

readln (input, n);
setLength (a, n);
for i:=0 to n-1 do read (input, a[i]);
for i:=n-1 downto 0 do write (output, a[i]);

close (input); close (output);
end.