题目描述
任意输入n个整数，把它们的最大值，最小值求出来.
输入
输入只有一行，包括一个整数n(1<=n<=20),后面跟着n个数.
输出
输出只有一行,包括2个整数。
样例输入5 1 99 3 6 0样例输出99 0
求答案和解析

lz
你自己想想啊。。这么水自己肯定会做的。。。

不过问了我就跟你讲下吧
开个两个变量
都储存第一个值
从前向后扫描
如果扫描到的元素比第一个变量大就替换
如果比第二个变量小就替换
完了第一个就是最大值
第二个就是最小值
代码自己码吧 多多锻炼成为老司机啊骚年

一共就20个数，依次比较就是了
var i1,maybe_min,maybe_max:blahblah;
begin
read(i1); { discard }
read(i1);maybe_min:=i1;maybe_max:=i1;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
if not eol then begin read(i1);maybe_min:=min(maybe_min,i1);maybe_max:=max(maybe_max,i1) end;
writeln(maybe_max,' ',maybe_min)
end.

var
a:array[1..20]of integer;
max,min,i:integer;
begin
max:=-maxint;
min;=maxint;
read(n);
for i:=1 to n do
begin
read(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
write(max,' ',min);
end.

var
max,min,n,i,x:longint;
begin
read(n);
max:=-maxlongint;
min:=maxlongint;
for i:=1 to n do
begin
read(x);
if x>max then max:=x;
if x<min then min:=x;
end;
write(max,' ',min);
end．

var a,b,c,n:longint;
begin
read(n);
read(a);
read(b);
if a<b then begin
c:=a;
a:=b;
b:=c;
end;
for n:=n-2 downto 1 do
begin
read(c);
if a<c then a:=c;
if b>c then b:=c;
end;
writeln(a,' ',b);
readln;
readln;
end.