Question

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

Answer 1

Var a:array[1..100] of integer;
i,x,n:integer;
sr:real;
begin
for i:=1 to 100 do begin
read(x);
if x>20 then begin 
sr+=x; 
n+=1; 
end;
end;
writeln(sr/n);
end.