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
uses crt;
var
a:array [1..10] of integer;
s,p,i:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do begin
a[i]:=random(601)-100;
write(a[i],' ');
end;
s:=0;
p:=1;
writeln;
for i:=1 to 10 do begin
if (a[i]>0) and (odd(i)=false) then s:=s+a[i];
if (a[i] mod 3 = 0) and (odd(i)=true) then p:=p*a[i];
end;
writeln ('s = ',s);
writeln ('p = ',p);
readln;
end.