# 1.
# Полагаю, что в техническом задании ошибка и считаю фразу "делятся на" фразой "целочисленно делятся на".
def IsDivisible(digit, n): return (digit % n == 0)
digits=range(20, 50 + 1)
required=[str(digit) for digit in digits if IsDivisible(digit, 2) and not IsDivisible(digit, 5)]
print("Result:\n", '\n'.join(required))
# 2.
# Боль от запятой. Голову изломал от этого дробного остатка...
digits=range(35, 87 + 1)
required=[str(digit) for digit in digits if digit % 7 == 1 or digit % 7 == 2 or digit % 7 == 5]
print("Result:\n", '\n'.join(required))
const n=20;
var a:array[1..n] of integer;
i,j,c:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(100);
writeln('a[',i,']=',a[i]);
end;
for i:=1 to n do begin
while (a[i] mod 2 <> 0) do begin
c += 1;
for j:=i to n-1 do begin
a[j]:=a[j+1];
a[j+1]:=0;
end;
end;
end;
writeln('Размер массива: ',n-c);
for i:=1 to n-c do begin
writeln('a[',i,']=',a[i]);
end;
end.