Question

в классе 20 учеников писали диктант по русскому языку. напишите программу, подсчитывающую количество двоек,троек,четверок и пятерок, полученных за диктант.

Answer 1

Сначала вводишь кол-во учеников : 20, затем оценки (20 оценок вводишь).

var i,n,a,d,t,chet,p:integer; 
begin 
read(n); 
while i<n do begin   
read(a);   
if a=2 then d:=d+1;   
if a=3 then t:=t+1;   
if a=4 then chet:=chet+1;   
if a=5 then p:=p+1;   
i:=i+1;   
end; 
writeln('Двоек: ',d);   
writeln('Троек: ',t);   
writeln('Четверок: ', chet);   
writeln('Пятерок: ',p);   
end.