Question

Здравствуйте! Написать программу, которая вводит массив из N целых чисел и выводит на экран эле-менты с нечётными номерами в обратном порядке. Протестировать программу для сле-дующих исходных данных:
а) 1 3 5 6 8 9
б) -1 4 6 2 4 6 8 6 9

Answer 1

Ответ:

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