Alex,
Please post code, not images.
mainList = {12, 14, 8, 0, 33, 17, 5, 10};
listRed = {12, 8, 0, 10};
If[MemberQ[listRed, #], Style[#, Red], #] & /@ mainList
listBlue = Complement[mainList, listRed];
colorMap = AssociationMap[Red &, listRed]~Join~AssociationMap[Blue &, listBlue]
Style[#, colorMap[#]] & /@ mainList