Q: Find the element that has the max first part in a list For a list of list={{x1,y1},{x2,y2}, ..., {xn,yn}}, how to find the element with the maximum value of the 1st coordinate, i.e. {xmax, yi}, including its position? It may be something like Map[(Max[#1, _]) &, list] Thank you in advance!

A: lst = RandomInteger[{-100, 100}, {20, 2}]

TakeLargestBy[lst-> {"Element","Index"},First, 1]//Catenate

(* {{89, 95}, 16} *)

Or, perhaps you want:
TakeLargest[lst[[All,1]]-> {"Element","Index"}, 1]
(* {{89, 16}} *)


A: Clear[list];
list = {{2, 3}, {8, 5}, {4, 2}};
Ordering[list[[;; , 1]], -1] // First
list[[%]]


2


{8,5}


A: alist = RandomInteger[{-100, 100}, {20, 2}]

Max[alist[[All, 1]]]

pos = Position[alist, {Max[alist[[All, 1]]], _}]

Extract[alist, pos]

