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

PascalABC.net, версия 3.3

var a: array [1..30] of integer;k, s, i: integer; {s - сумма результатов, k - количество учеников, сдавших экзамен}beginwriteln(\'Введите последовательно баллы учеников: \');for i:=1 to 30 do readln(a[i]);for i:=1 to 30 do if a[i]>20 then {если ученик сдал экзамен, учитываем его результат при подсчете среднего арифметического} begin s:=s+a[i]; k:=k+1; end;writeln(s/k); {выводим среднее арифметическое}end.