Вывести средний балл учащихся, сдавших экзамен - Pascal ABC

Формулировка задачи:

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

const N=30
var A:array[1..N] of integer;
i,x,y:integer;
s:real;
begin
for i:=1 to n do readln(A[i]);
...
end.

не ужели некто не может написать ответ

Решение задачи: «Вывести средний балл учащихся, сдавших экзамен»

Листинг программы

const
  N = 5;
 
var
  A: array[1..N] of integer;
  i, k: integer;
  s: real;
 
begin
  k := 0;
  for i := 1 to n do 
  begin
    readln(A[i]);
    if a[i] > 20 then 
    begin
      s := s + A[i];
      k := k + 1;
    end;
  end;
  
  if k > 0 then 
    writeln('Средний балл сдавших: ', s / k:0:3)
  else writeln('Никто из учащихся экзамен не сдал')
end.

Объяснение кода листинга программы

В начале объявляются две константы N и K, которые будут использоваться в коде.
Затем объявляется переменная A типа array[1..N] of integer. Это массив из N элементов типа integer.
Далее объявляются три переменные i, k и s типа integer. Переменная i будет использоваться для итерации по массиву A, переменная k будет использоваться для подсчета количества элементов массива A, которые больше 20, а переменная s будет использоваться для накопления суммы этих элементов.
Затем идет цикл for, который начинается с i=1 и продолжается до n. Внутри цикла считывается значение из массива A[i] и если оно больше 20, то к переменной s прибавляется сумма A[i], а к переменной k прибавляется 1.
После завершения цикла выводится сообщение, если количество элементов массива A, которые больше 20, больше 0. Если же нет, то выводится сообщение о том, что никто из учащихся экзамен не сдал.