永发信息网

求出一批非零整数中的偶数.奇数的平均值,用零作为终止标记的程序

答案:2  悬赏:0  手机版
解决时间 2021-02-13 14:37
  • 提问者网友:星軌
  • 2021-02-13 04:04
求出一批非零整数中的偶数.奇数的平均值,用零作为终止标记的程序
最佳答案
  • 五星知识达人网友:鸽屿
  • 2021-02-13 04:59
'一个VB程序 实例代码如下:
Private a() As Integer

Private Sub Form_Click()
Do
b = b + 1
ReDim Preserve a(1 To b) As Integer
a(b) = InputBox("请输入一个整数:")
If a(b) = 0 Then
ReDim Preserve a(1 To b - 1) As Integer
Exit Do
End If
Print a(b); " ";
c = c + 1
If c Mod 10 = 0 Then Print
If a(b) Mod 2 <> 0 Then
js1 = js1 + a(b)
js2 = js2 + 1
Else
os1 = os1 + a(b)
os2 = os2 + 1
End If
Loop
Print
Print "奇数的平均值是:" & js1 / js2
Print "偶数的平均值是:" & os1 / os2
End Sub
全部回答
  • 1楼网友:行路难
  • 2021-02-13 05:48

#include<stdio.h>

int main() {

int a,s1=0,s2=0,c1=0,c2=0;

scanf("%d", &a);

while(a != 0) {

if(a%2==0) {

s1 += a;

c1++;

} else {

s2 += a;

c2++;

}

scanf("%d", &a);

}

printf("%f %f", (float)s1/c1, (float)s2/c2);

return 0;

}

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯