max([X],X).
max([G|R],M):-max(R,M1),M1=<G,M is G.
max([G|R],M):-max(R,M).

min([X],X).
min([G|R],M):-M is G,min(R,M1),M1<M, M is M1.
 
/* poziva se sa ?- max(Lista,Maximum). tj. sa ?- min(Lista,Minimum). */