2. Создать программу для решения следующей  задачи: В классе 26 учеников писали диктант по русскому языку. Результаты записаны в массив. Определить количество двоек, троек, четверок, пятерок.

Краткий ответ

Нужно завести четыре счётчика и при просмотре каждого из 26 элементов увеличивать счётчик соответствующей оценки.

program DictationMarks;

var
  marks: array[1..26] of integer;
  twos, threes, fours, fives: integer;
  i: integer;

begin
  twos := 0;
  threes := 0;
  fours := 0;
  fives := 0;

  for i := 1 to 26 do
  begin
    read(marks[i]);

    case marks[i] of
      2: twos := twos + 1;
      3: threes := threes + 1;
      4: fours := fours + 1;
      5: fives := fives + 1;
    end;
  end;

  writeln('Двоек: ', twos);
  writeln('Троек: ', threes);
  writeln('Четверок: ', fours);
  writeln('Пятерок: ', fives);
end.

Как работает программа

1. Четыре счётчика сначала равны нулю.
2. Цикл for 26 раз считывает оценки из массива.
3. Оператор case определяет оценку:
   • если 2, увеличивается twos;
   • если 3, увеличивается threes;
   • если 4, увеличивается fours;
   • если 5, увеличивается fives.
4. В конце выводится количество каждой оценки.

Проверка

Так как всего учеников 26, должно выполняться:

\[ twos + threes + fours + fives = 26. \]