Ответ:
begin
var N := ReadInteger('Array Length: ');
var A := ReadArrInteger(N);
//Нечётные номера элементов - чётные индексы
for var i := n-1 downto 0 do begin
if (i mod 2 = 0) then A[i].Println;
end;
end.
Tests:
#1
input:
6
1 3 5 6 8 9
Output:
8 5 1
Awaitable:
8 5 1
OK
#2
input:
9
-1 4 6 2 4 6 8 6 9
Output:
9 8 4 6 -1
Awaitable:
9 8 4 6 -1
OK