Составить программу ** каком-либо языке программирования (указать версию языка) или...

Question

Составить программу на каком-либо языке программирования (указать версию языка) или алгоритмическом языке. (паскаль)
На вход программе подаются баллы, полученные каждым учеником на ЕГЭ по информатике, каждое число в отдельной строке. Первой строкой подаётся количество таких записей. Оценка «5» выставляется, если ученик набрал 80-100 баллов, «4» - 60-79, «3» - 40-59. Минимальный балл для получения положительной оценки составляет 40 баллов. Определите, какое количество учеников получили оценки «5», «4», «3», «2».

Answer 1

Program ege;var kol,bal,pyt,chet,tri,dva,i:integer;beginread(kol);for i:=1 to kol dobeginread(bal);case bal of80..100:pyt:=pyt+1;60..79:chet:=chet+1;40..59:tri:=tri+1;1..39:dva:=dva+1;end;end;writeln('Оценок 5: ', pyt);writeln('Оценок 4: ', chet);writeln('Оценок 3: ', tri);writeln('Оценок 2: ', dva);end.

---