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

program AverageScore;

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

begin
  sum := 0;
  count := 0;

  for i := 1 to 30 do
  begin
    write('Enter the score of student ', i, ': ');
    readln(scores[i]);

    if scores[i] > 20 then
    begin
      sum := sum + scores[i];
      count := count + 1;
    end;
  end;

  average := sum / count;

  writeln('Average score of students who passed the exam: ', average:0:6);
end.

Этот код сначала объявляет массив scores из 30 элементов для хранения баллов учащихся. Затем с помощью цикла for запрашивает у пользователя баллы каждого ученика и проверяет, превышают ли они 20. Если да, то балл добавляется к сумме и увеличивается счетчик. После завершения цикла вычисляется средний балл учеников, которые сдали экзамен, и выводится на экран с точностью до 6 знаков после запятой.