Напиши программу на ABCPascal для подсчета количества оценок «4» и «5» среди 20 учеников, затем изменить

Объяснение: ABCPascal — это язык программирования, который часто используется для обучения программированию в средних школах. Чтобы решить данную задачу, нам потребуется использование массива для хранения оценок учеников. Массив — это структура данных, которая может содержать несколько элементов одного типа.

Для начала, создадим массив «оценки» с размером 20. Затем, с помощью цикла, будем вводить оценки каждого ученика и считать количество оценок «4» и «5». После этого, мы изменим программу таким образом, чтобы она считала только оценки «5».

Пример использования:

program CountGrades;
var
  grades: array[1..20] of integer;
  i, countFour, countFive: integer;
begin
  // Ввод оценок и подсчет количества оценок "4" и "5":
  countFour := 0;
  countFive := 0;
  for i := 1 to 20 do
  begin
    writeln('Введите оценку ученика ', i, ':');
    readln(grades[i]);
    
    if grades[i] = 4 then
      countFour := countFour + 1
    else if grades[i] = 5 then
      countFive := countFive + 1;
  end;

  writeln('Количество оценок "4": ', countFour);
  writeln('Количество оценок "5": ', countFive);

  // Подсчет только оценок "5":
  countFive := 0;
  for i := 1 to 20 do
  begin
    grades[i] := 5; // Заменяем оценку на "5", используя оператор присваивания.
    
    if grades[i] = 5 then
      countFive := countFive + 1;
  end;

  writeln('Количество оценок "5": ', countFive);

end.

Совет: Прежде чем приступить к решению задачи, ознакомьтесь с основными понятиями ABCPascal и примерами использования массивов и операторов цикла. Используйте учебник на странице 66 для получения более подробной информации о синтаксисе языка и его возможностях.

Упражнение: Напишите программу на ABCPascal, которая будет запрашивать оценки 10 учеников и выводить их сумму. После этого, измените программу таким образом, чтобы она выводила среднее арифметическое всех оценок.