Qbasic题 随机产生20个两位整数,然后统计输出偶数的个数请把步数讲一下

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/17 05:31:25

Qbasic题 随机产生20个两位整数,然后统计输出偶数的个数
请把步数讲一下

cls
randomize timer
dim a(20)
for i=1 to 20
a(i)=int(rnd*90+10)
print a(i)
if a(i) mod 2=0 then s=s+1
next i
print s
end

CLS
RANDOMIZE TIMER
DIM A(20)
FOR I= 1 TO 20
A(I)=INT (RND(1)*90+10)
PRINT A(I);
IF A(I)\2=A(I)/2 THEN N=N+1
NEXT I
PRINT N
END