用数组计算20个学生的平均成绩，然后统计高于平均的人数怎么编程？

Question

如题所述

Answer 1

Private Sub Form_Click() Dim a(1 To 4, 1 To 5) As Integer, i As Integer, j As Integer, sum As Integer, n As Integer Print "学生的成绩如下:" sum = 0 For i = 1 To 4 For j = 1 To 5 a(i, j) = Int(Rnd * 101) Print a(i, j); n = n + 1 If n Mod 5 = 0 Then Print sum = sum + a(i, j) Next j Next i p = sum \ 20 Print "学生的平均成绩为:"; Print p n = 0 For i = 1 To 4 For j = 1 To 5 If a(i, j) > p Then n = n + 1 Next j Next i Print "超过平均成绩的人数为:" Print n End Sub

Answer 2

int avscore=0,sumscore=0,sum=0;//一个纪录平均分数,一个纪录总分,一个纪录总人数 int student[20];//已经输好成绩的数组 for(int i=0;i<19;i++) { sumscore+=student[i]; } avscore=sumscore/20; for(int j=0;j<19;j++) { if(student[i]>avscore) sum++ } printf(%d,sum)本回答被提问者采纳