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

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 16:20:49

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

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