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

program AverageScore;

var scores: array[1..30] of integer; i, sum, count: integer; average: real;

begin sum := 0; count := 0;

// Вводим баллы учеников for i := 1 to 30 do begin write('Введите балл ученика ', i, ': '); readln(scores[i]); end;

// Считаем средний балл учеников, сдавших экзамен for i := 1 to 30 do begin if scores[i] > 20 then begin sum := sum + scores[i]; count := count + 1; end; end;

average := sum / count;

writeln('Средний балл учащихся, сдавших экзамен: ', average:0:6); end.