输入一个正整数n，再输入n个学生的成绩，计算平均分，并统计不及格成绩的个数。

CLS
INPUT N
S=0
DIM A(N)
FOR I=1 TO N
INPUT A(I)
B=B+A(I)
IF A(I)<60 THEN S=S+1
NEXT I
B=B/N
PRINT"Ping Jun Fen:";B
PRINT"Bu Ji Ge:";S
END

program fg;
var
s,n,i,j:integer;
t:real;
begin
readln(n);
s:=0;j:=0;
for i:=1 to n do
begin
read(x);
s:=s+x;
if x<60 then j:=j+1;
end;
t:=s/n;
writeln('ping jun=',t:8:2);
writeln('bu ji ge=',j);
readln;
end.

很简单的

什么