Напиши текст программы на ABCPascal, который подсчитывает количество оценок 4 и 5 из 20 учащихся, писавших диктант

Тема: Программирование на ABCPascal

Разъяснение: ABCPascal - язык программирования, используемый в учебниках для изучения основ программирования. Для решения данной задачи, нам нужно написать программу, которая подсчитывает количество оценок "4" и "5" из 20 учащихся, писавших диктант по русскому языку. Затем, нам нужно внести изменения в программу, чтобы она обрабатывала оценки 5 учеников и заменить цикл ввода данных на оператор присваивания.

Вот текст программы на ABCPascal:

program CountGrades;



var

  grades: array[1..20] of integer;

  count4, count5, i: integer;



begin

  count4 := 0;

  count5 := 0;



  // Ввод оценок с помощью оператора присваивания

  grades[1] := 5;

  grades[2] := 4;

  // Замените остальные оценки в соответствии с вашим вводом



  // Подсчет оценок

  for i := 1 to 20 do

  begin

    if grades[i] = 4 then

      count4 := count4 + 1

    else if grades[i] = 5 then

      count5 := count5 + 1;

  end;



  // Вывод результатов

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

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



  readln;

end.

Совет: Для лучшего понимания программирования, рекомендуется изучить основные концепции языка ABCPascal, такие как массивы, циклы, операторы присваивания и условные операторы. Регулярная практика и решение задач помогут улучшить навыки программирования.

Задание для закрепления: Напишите программу на ABCPascal, которая будет находить среднее арифметическое чисел от 1 до 10.