Юрий
6 год назад
В классе 35 человек. Последовательно вводятся оценки учеников за контрольную работу. Найдите средний балл и количество пятёрок. PASCAL
ОТВЕТЫ
Aleksey
Jul 21, 2019
// 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
// Внимание! Если программа не работает, обновите её версию!
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
178
Смежные вопросы:
