>>492
% Prolog こういう手続き的なのも可能。

t492 :-
　　get_integer(N),
　　length(L,N),
　　for(1,M,N),
　　get_integer(I),
　　list_nth(M,L,I),
　　M = N,
　　max(L,Max),
　　min(L,Min),
　　write_formatted('全要素 = %t\n最大値 = %t\n最小値 = %t\n',[L,Max,Min]).

get_integer(N) :-
　　repeat,
　　get_line(Line),
　　atom_to_term(Line,N,_),
　　integer(N).