50名同学数学成绩，60分以及60分以上为及格，要求统计及格人数及其平均分，全班同学的平均分，写出程序

i=1
t=0
n=0
DO
PRINT "输入第i个成绩，i="； i
INPUT “数学成绩”； X
IF X>=60 THEN t=t+1
END IF
n=n+X
i=i+1
LOOP UNTIL i>50
n=n/50
PRINT "及格人数"； t
PRINT "平均分数"； n
END

说明:每循环一次,输入一个成绩，循环程序中输出的 i 提示输入第几个成绩。i、t 、n为三个独立的记数变量。 i记录输入的成绩个数；t记录超过60分的人数；n记录各个同学的总分之和。
这应该是高中必修3的题，我也忘的差不多了……

另外，上面那个求的是所有同学的总平均分，如果是只求及格同学的平均分的话，程序如下：
i=1
t=0
n=0
DO
PRINT "输入第i个成绩，i="； i
INPUT “数学成绩”； X
IF X>=60 THEN t=t+1 n=n+X
END IF
i=i+1
LOOP UNTIL i>50
n=n/t
PRINT "及格人数"； t
PRINT "平均分数"； n
END

这里的n就是记录及格同学的分数之和了。

这么费事的东西，你只给我20分，我才懒的想

吓...