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

§ 1.4. Обработка одномерных массивов целых чисел на языке Паскаль Гдз по информатике 9 класс по учебнику Босова. Базовый уровень. Обновленные ФГОС 2021 год.

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

Ответ

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

program CountGrades;

var
grades: array[1..20] of Integer;
countTwos: Integer;
countThrees: Integer;
countFours: Integer;
countFives: Integer;
i: Integer;

begin
countTwos := 0;
countThrees := 0;
countFours := 0;
countFives := 0;

writeln('Введите оценки учеников:');
for i := 1 to 20 do
begin
readln(grades[i]);
case grades[i] of
2: countTwos := countTwos + 1;
3: countThrees := countThrees + 1;
4: countFours := countFours + 1;
5: countFives := countFives + 1;
end;
end;

writeln('Количество двоек:', countTwos);
writeln('Количество троек:', countThrees);
writeln('Количество четвёрок:', countFours);
writeln('Количество пятёрок:', countFives);
end.

В данной программе пользователь должен ввести оценки всех 20 учеников. Затем программа использует оператор case для подсчета количества двоек, троек, четвёрок и пятёрок. На выходе программа выводит количество оценок каждого значения.