В классе 35 человек. Поочередно вводятся оценки учеников за контрольную работу.

// PascalABC.NET 3.2, сборка 1346 от 25.11.2016
// Внимание! Если программка не работает, обновите её версию!

begin
  var a:=ReadArrInteger('-gt;',35);
  Writeln('Средний балл ',a.Average:4:2);
  Writeln('Количество пятерок- ',a.Where(x-gt;x=5).Count)
end.

Пример
-gt; 4 4 2 4 5 2 3 3 4 3 2 3 2 4 4 2 4 2 4 5 2 2 5 4 4 2 4 2 4 5 5 2 3 3 4
Средний балл 3.34
Количество пятерок- 5