Question

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

Answer 1

我只会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