лично я бы пошёл примерно по такому алгоритму (q basic)
for i=1 to 50
a=str$(A(i))
d=len(a)
for g=1 to d
c=c+val(mid(a,g,1))
next g
if c/3><c\3 and A(i)\abs(A(i))><abs(A(i)) then
if mid(a,d,1)=1 or mid(a,d,1)=3 or mid(a,d,1)=7 or mid(a,d,1)=9 then k=k+1
end if
next i
print k
end
тупо прогнал по...