Дан целочисленный массив из 30 элементов. элементы могут принимать значения от 0 до 100 – , полученные на егэ. опишите на языке или на одном из языков программирования алгоритм, который подсчитывает и выводит средний учащихся, сдавших экзамен (получивших оценку более 20 ). гарантируется, что хотя бы один ученик в классе успешно сдал экзамен.
program ege;
var i,b,c,g:integer;
a:array[1..30] of integer;
begin
writeln('vvedite balli uchashihsa');
readln(a);
b:=0; c:=0;
for i:=1 to 30 do
begin
if a[i]>20 then
b:=b+a[i];
c:=c+1;
end;
g:=(b div c);
writeln('srednii ball raven',g);
end.