Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

var i,n,a,d,t,chet,p:integer; 
begin 
read(n); 
while iread(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.