Дан целочисленный массив из 30 элементов

[XVXWOLFXVX]

Дан целочисленный массив из 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.

[Хыиуду]

Пройти по циклу, если очередной элемент больше 20 - добавить его в сумму, увеличить счетчик на 1. Разделить сумму на счетчик

[XVXWOLFXVX]

Пройти по циклу, если очередной элемент больше 20 - добавить его в сумму, увеличить счетчик на 1. Разделить сумму на счетчик

напиши программу плиз

[Хыиуду]

Опишите на русском языке или на одном из языков программирования алгоритм

Все сделано точно по ТЗ.