从键盘输入n个实数,输出其中的最大值和最小值

问题描述:

从键盘输入n个实数,输出其中的最大值和最小值

我只会PASCAL
var n,i,max,min,j:longint;
begin
readln(n);
max:=-maxlongint;
min:=maxlongint;
for i:=1 to n do
begin
readln(j);
if j>max then max:=j;
if j