QBASIC编程题!

来源：百度知道 编辑：UC知道 时间：2024/04/28 17:48:36
编程：利用随机函数产生20个2位的正整数，并且求20个数中的最大值和最小值，打印数组及最大值和最小值。

CLS
DIM A(21)
FOR I = 1 TO 20
A(I)=int(rnd*90+10)
PRINT A(I);
NEXT I

MAX=A(1);MIN=A(1)
FOR I = 2 TO 19
IF A(I)>MAX THEN MAX=A(I)
IF A(I)<MIN THEN MIN = A(I)
NEXT I

PRINT MAX;MIN

CLS
RANDOMIZE TIMER
DIM C(21)----最好多一个
FOR I = 1 TO 20
c(I)=int(rnd*90+10)
PRINT C(I);

MAX=A(1);MIN=A(1)
FOR I = 2 TO 19
IF A(I)>MAX THEN MAX=A(I)
NEXT I

FOR I = 2 TO 19
IF A(I)<MIN THEN MIN = A(I)
NEXT I

PRINT MAX;MIN