Hello Nuliajuk,
The easiest way I can think of to do this would use Map to apply Style to the numbers you choose. For example:
list = Map[If[# < 16, Style[#, Red], #] &, RandomSample[Range[50]]]
You should be aware that doing it this way may make further calculations give unexpected answers, like this:
As you can see in Out[2], you don't immediately get the answer you might expect. This is because what you've done is to change the internal representation of the items in the list. Instead of simply a list of numbers, the styled numbers now have a new symbolic representation, as seen in Out[3]. This is simple enough to work around if you need to, you just have to add an extra index number to access the number:
This is fine if you only need to do a few quick calculations with those numbers, but could get cumbersome if you're hoping to do a lot more work with this list. If that's the case, then I'd recommend assigning the list to a variable first and then using Map on the variable without making an assignment. This way, your original list stays exactly the same, and you can still inspect the list easily. Here's an example:
I hope that helps!