Клавиатура, сканер, микрофон образуют группу устройств..

Группу устройств ввода информации

var
  i, k, N: word;               
  A, B: array[1..10000] of integer;

begin 
  write(' N = ');
  readln(N);
  writeln(' Введите массив из ', N, ' чисел: ');
  for i := 1 to N do
  begin
    read(a[i]); //Вводим i-й элемент массива.
    if a[i] mod 2 = 0 then //Если он четный,  
    begin
      inc(K); //то увеличиваем K на 1.
      b[K] := a[i] //Очередной элемент нового массива.  
    end
  end;
  writeln('Четные числа обратном порядке: ');
 { Выводим четные элементы массива в обратном порядке: }
  for i := K downto 1 do
    write(' ', b[i]);
  write(' K = ', K)
end.

1

lst = [int(input()) for _ in range(int(input()))]

print(*[i for i in lst if i % 2 == 1])

print(len([i for i in lst if i % 2 == 1]))

2

lst = [int(input()) for _ in range(int(input()))]

print(*[i for i in lst[::-1] if i % 2 == 0])

print(len([i for i in lst if i % 2 == 0]))

3

lst = [int(input()) for _ in range(int(input()))]

print(*[i for i in lst if i % 2 == 0])

print(*[j for j in lst[::-1] if j % 2 == 1])

4(вообще индексация начинается с 0, но написано 'порядковыми')

a = [int(input()) for _ in range(int(input()))]

k = int(input('Введите k: '))

print(*[a[i] for i in range(k - 1, len(a), k)])

5(тоже самое, вторым я считаю элемент, который ввели вторым по счету, а не второй элемент по индексу)

a = [int(input()) for _ in range(int(input()))]

print(*[i for i in a[1::2]])

Пиши, если нужно исправить 4 или 5