Top few numbers (highest) of a list

If the order does not matter, TakeLargest[A, 3]; if it does, A[[Ordering[A, -3]]].

Another way

MaximalBy[A, Identity, 3]