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

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      x := x + 1;      y := y + A[i];    end;  s := y / x;  writeln('Средний балл ', s:10:3); end.