Position of the minimal element of an upper triangular matrix

(* 
Input: upper triangular matrix;
Output: position of the minimal element;
Submodules: none needed 
*)

MinEl[R_]:=Module[{n=Length[R[[1]]],min=Infinity,red,ord,imin},
Do[
red=Drop[R[[i]],{1,i}];
ord=Ordering[red,1][[1]];
If[red[[ord]]<min,min=red[[ord]];imin={i,ord+i}];
(*Print[i,red,ord,":  ",imin];*)
,{i,n-1}];
imin]

(* Position of the maximal element of an upper triangular matrix *)
MaxEl[R_]:=Module[{n=Length[R[[1]]],max=-Infinity,red,ord,imax},
Do[
red=Drop[R[[i]],{1,i}];
ord=Ordering[red,-1][[1]];
If[red[[ord]]>max,max=red[[ord]];imax={i,ord+i}];
(*Print[i,red,ord,":  ",imax];*)
,{i,n-1}];
imax]

Example

R={{0,11,3,6,4},{0,0,11,5,2},{0,0,0,6,12},{0,0,0,0,6},{0,0,0,0,0}};
MatrixForm[R]
Print["PossitionMinEl: ",MinEl[R]]
Print["PossitionMinEl: ",MaxEl[R]]