Nучащихся получили оценки за контрольную работу. ввести оценку каждого ученика, найти средний , кол-во неудовлетворительных оценок

141

209

Посмотреть ответы 2

Ответы на вопрос:

Радик174

Информатика

4,8(96 оценок)

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.