Напиши код на Pascal ABC. Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 0 до 100 ­– баллы, полученные на ЕГЭ. Опишите алгоритм, который подсчитывает и выводит средний балл учащихся (с точностью 6 знаков после запятой), сдавших экзамен (получивших оценку более 20 баллов). Гарантируется, что хотя бы один ученик в классе успешно сдал экзамен.

program AverageScore;

var
  scores: array[1..30] of integer;
  i, count, sum: integer;
  average: real;

begin
  count := 0;
  sum := 0;

  // Вводим баллы учеников
  for i := 1 to 30 do
  begin
    write('Введите балл ученика ', i, ': ');
    readln(scores[i]);
  end;

  // Подсчитываем средний балл учащихся, сдавших экзамен
  for i := 1 to 30 do
  begin
    if scores[i] > 20 then
    begin
      count := count + 1;
      sum := sum + scores[i];
    end;
  end;

  average := sum / count;

  writeln('Средний балл учащихся, сдавших экзамен: ', average:0:6);
end.

Алгоритм работы программы:

1. Создаем массив scores из 30 элементов для хранения баллов учеников.
2. Вводим баллы учеников с помощью цикла for.
3. Инициализируем переменные count (количество учеников, сдавших экзамен) и sum (сумма баллов учеников, сдавших экзамен).
4. С помощью цикла for подсчитываем количество учеников, сдавших экзамен, и суммируем их баллы.
5. Вычисляем средний балл учащихся, сдавших экзамен, как отношение суммы баллов к количеству учеников.
6. Выводим средний балл учащихся, сдавших экзамен, с точностью до 6 знаков после запятой.