Дан целочисленный массив из 30 элементов,.Элементы могут принимать значения от 0 до...

Question

Дан целочисленный массив из 30 элементов,.Элементы могут принимать значения от 0 до 100-баллы, полученные на ЕГЭ.Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит средний балл учащихся, с давших экзамен (получивших оценку более 20 баллов) Гарантирует, что хотя бы один ученик в классе успешно сдал экзамен.Исходные данные объявлены так, как показано ниже.Использовать другие переменные запрещается.
Паскаль
cost N=30
var A: array [1..N] of integer ;
i, x, y:integer;
s: real ;
begin
for i:=1 to N do read on (A [i]);
...
End

Answer 1

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]);
x:=0;y:=0;
for i:=1 to N do 
if a[i]>20 then begin
inc(x);
y:=y+a[i];
end;
s:=y/x;
writeln(s);end.