Program Ball;
Const
  M=25;
Var
  B:Array[1..M] OF Integer;
  S:Real; {сумма и средний балл}
  N,I,K:Integer; {K — счетчик}
Begin
  Writeln('Введите количество оценок');
  Read (N);
  Writeln('Введите оценки');
  For I:= 1 To N Do Read(B[I]);
  S:=0;
  For I:= 1 To N Do S := S+B[I];
  S := S/N; {средний балл }
  Writeln('Средний балл — ',S);
  K: = 0;
  For I:= 1 To N Do If B[I] >S Then K:=K+1;
  Writeln('Количество оценок выше средней = ',K);
End.

---