jzxx1025求n个数的最大值和最小值

 题目描述
任意输入n个整数，把它们的最大值，最小值求出来.

输入
输入只有一行，包括一个整数n(1<=n<=20),后面跟着n个数. 每个数的范围在0到32767之间。

输出
输出只有一行,包括2个整数。

样例输入 
5 1 99 3 6 0
样例输出 
99 0

满分代码：
var
 i,n,m1,m2,m3:integer;
begin
 read(n);
 for i:=1 to n do begin
 read(m3);
 if (i=1) or (m1>m3) then 
 m1:=m3;
 if (i=1) or (m2<m3) then 
 m2:=m3;
 end;
 write(m2,' ',m1);
end.