В классе 20 учеников писали диктант по русскому языку. Напишите программу (на Паскале) подсчитывающую количество полученных 2, 3, 4, 5.

Для того чтобы подсчитать количество оценок 2, 3, 4 и 5 среди 20 учеников, можно использовать простой алгоритм. Необходимо ввести оценки каждого ученика и подсчитать количество каждой оценки.

Пример программы на языке Паскаль:

pascal
Копировать
program CountGrades;
var
  grades: array[1..20] of integer;
  i, grade2, grade3, grade4, grade5: integer;
begin
  // Инициализация счетчиков
  grade2 := 0;
  grade3 := 0;
  grade4 := 0;
  grade5 := 0;
  // Ввод оценок учеников
  writeln('Введите оценки 20 учеников (от 2 до 5):');
  for i := 1 to 20 do
  begin
    write('Оценка ученика ', i, ': ');
    readln(grades[i]);
    // Подсчет оценок
    case grades[i] of
      2: grade2 := grade2 + 1;
      3: grade3 := grade3 + 1;
      4: grade4 := grade4 + 1;
      5: grade5 := grade5 + 1;
    else
      writeln('Неверная оценка! Оценка должна быть от 2 до 5.');
    end;
  end;
  // Вывод результатов
  writeln('Количество оценок 2: ', grade2);
  writeln('Количество оценок 3: ', grade3);
  writeln('Количество оценок 4: ', grade4);
  writeln('Количество оценок 5: ', grade5);
end.

Пояснение программы:

1. Мы создаем массив grades для хранения оценок 20 учеников.

2. Далее, с помощью цикла for, программа вводит оценки каждого ученика.

3. Используем конструкцию case для подсчета количества каждой оценки (2, 3, 4, 5).

4. В конце программа выводит количество каждой из оценок.

Этот алгоритм поможет вам легко подсчитать количество оценок, полученных учениками, и вывести результаты.