Clojure

(def emps (map (fn [x] {:name (str "employee" x) :salary (* 100 x)}) (take 10 (range 1 10))))
(take (/ (count emps) 10) (reverse (sort-by :salary emps)))

Haskell

import Data.List (sortBy)

data Employee = Employee {name :: String, salary :: Double } deriving (Show)
let emps = map (\x -> Employee ("emp" ++ show x) (x * x)) [1..10] in take ((length emps) `div` 10) (sortBy (\x y -> compare (salary y) (salary x)) emps)

Scala

case class Employee(name: String, salary: Double)
val emps = (1 to 10).map(i => Employee("employee" + i, i * 100))
emps.sortBy(_.salary).reverse.take(math.ceil(emps.size / 10.0))

Python

emps = {"employee"+str(i): i*100 for i in range(1, 11)}
[(key, value) for key, value in sorted(emps.items(), key=lambda (k,v): (-v,k))][0:len(emps)/10]