Question

QB 由键盘任意输入10个单精度数,找出其中最大和最小的数并输出

Answer 1

CLS

DIM a(10)

FOR i=1 TO 10

INPUT a(i)

NEXT i

FOR i=1 TO 9

FOR j=i+1 TO 10

IF a(i) < a(j) THEN SWAP a(i),a(j)

NEXT j,i

PRINT a(1),a(10)

end