Note you must first load << NDSolve`FEM`. Otherwise your example does not evaluate.
You may simple select the coordinates that fulfill the required condition and then create a new Mesh:
mesh1 = ToElementMesh@Select[mesh[Coordinates], #[[2]] >= #[[1]] &] Show[mesh1["Wireframe"], Axes -> True, AxesLabel -> {x, y}] 
