N учащихся получили оценки за контрольную работу. Ввести оценку каждого ученика, найти средний балл, кол-во неудовлетворительных оценок
Ответ
Автор - Yaroslav112
var p:real; i,n,k,s:integer; begin writeln('Введите количество учащихся'); readln(n); k:=0; p:=0; for i:= 1 to n do begin read(s); if s=5 then k:=k+1; p:=p+s; end; write('Средний балл ',p/n,' Количество отличных оценок ',k) end.