题目描述
任意输入n个整数，把它们的最大值，最小值求出来.
输入
输入只有一行，包括一个整数n(1<=n<=20),后面跟着n个数.
输出
输出只有一行,包括2个整数。
样例输入
5 1 99 3 6 0
样例输出
99 0
我写的结果是这样：
program bsg;
var
  n,x,max,min,i:longint;
begin
  read(n);
  read(x);
  max:=x;
  min:=x;
  for i:=1 to n do
    begin
      read(x);
      if x>max then max:=x;
      if x<min then min:=x;
    end;
  writeln(max,' ',min);
end.
但运行的时候，输入值要输入两次。比如说我输入，3 3 2 1;回车后，光标跳到下一行，没有运行结果，要再输入一次3 3 2 1 ；才能跳出正确结果：3，1.这是什么问题，怎么改？