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

Question

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

Answer 1

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

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

Пример
-> 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