输入a1,a2,a3,…,a20;
i=1;a=0;b=0;c=0;
If ai>0 Then
a=a+1
Do
If ai=0 Then
b=b+1
Else
c=c+1
i=i+1
Loop While i≤20
输出a,b,c.
请改用For循环语句写出.
输入a1,a2,a3,…,a20;
i=1;a=0;b=0;c=0;
If ai>0 Then
a=a+1
Do
If ai=0 Then
b=b+1
Else
c=c+1
i=i+1
Loop While i≤20
输出a,b,c.
请改用For循环语句写出.
答案:
改写为:输入a1,a2,a3,…,a20;a=0;b=0;c=0;
For i=1 To 20
输出i