Question

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

Answer 1

program Brainly;
var puple_count,mark,two, three, four, five, i: integer;
begin
writeln('Введите количество учеников');
readln(puple_count);
writeln('Введите оценки');
for i:=1 to puple_count do
begin
readln(mark);
case mark of
2 : two := two + 1;
3 : three := three + 1;
4 : four := four + 1;
5 : five := five + 1;
end;
end;
writeln('5: ', five);
writeln('4: ', four);
writeln('3: ', three);
writeln('2: ', two);
end.