Charlemagne was crowned by Pope St. Leo III:
But who was the most recent pope to crown a king or emperor?
It's arguably Pius VII who crowned Napoleon I, but given the rather dodgy legality there (he put the crown on his own head) I'm going to suggest a different answer.
In 1530, Clement VII crowned Charles V the Emperor of the Germans, more correctly and misleadingly known as the Holy Roman Emperor. After that, all emperors stayed emperors-elect.
Napoleon was crowned Emperor under the auspices of the Pope (Pius VII) in 1804, about 1000 years after Charlemagne. (Actually, he placed the crown on his own head after the Pope spoke his piece.) But he wanted, and got, the legitimacy of the Catholic Church behind him.
It may be worth mentioning that the pope is himself monarch of the Vatican city / Holy See. It is one of the few remaining absolute monarchies in the world.
Paul VI was the last Pope, to date, who was crowned with the papal tiara. His successor John Paul I decided against being crowned, and so did the following ones.
Indeed, one might object that Paul VI did not place the tiara on his head himself, but it was surely under papal patronage :) (And same for Pius VII who did not place the crown on Napoleon I's head)