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.
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