Question

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

Answer 1

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.