qbasic输入9个数怎样找出最大数?

cls '清屏
dim a(9) '定义9个数组
for i = 1 to 9 '循环9次
input a(i) '输入9个数
next i '循环退出标志
max=0 '让最大的先设为0
for i = 1 to 9 '循环9次
if a(i)> max then max=a(i) '找最大的一个数
next i '循环退出标志
print max '输出最大的一个
end '结束程序

我写的是排序程序.你要的结果就是a(9)

read x
for i=1 to 8
read y
if xnext i
print "maxmath is:";x
end
data 8,4,6,2,1,5,7,3,9

CLS
DIM A(9)
FOR I=1TO 9
INPUT A(I)
NEXT I
MAX=-1
FOR I=1TO 9
IF A(I)>MAX THEN MAX=A(I)
NEXT I
PRINT MAX
END

CLS
INPUT “1个数”；A,
M=A
FOR L=1 TO 8
INPUT “再输入一个数：”,B
IF B>A THEN M=B
NEXT L
PRINT M
END

CLS
FOR I=1 TO 9
INPUT A(I)
NEXT
MAX=A(1)
FOR I=2 TO 9
IF A(I)>MAX THEN MAX=A(I)
NEXT
PRINT MAX
END