2. Для задачи из примера 4.3 добавьте вывод среднего балла.

В примере есть переменная Sr, которая и содержит средний балл. Выведем её на экран.

var a: array[1..30] of integer;
  n, S: integer;
  Sr: real;
begin
  write('Количество учащихся ');
  readln(n);
  writeln('Вводите отметки');
  for var i := 1 to n do
    read(a[i]);
  S := 0;
  for var i := 1 to n do
    S := S + a[i];
  Sr := S / n;
  if Sr > 7 then
    writeln('Хорошая')
  else
    if Sr < 4 then
      writeln('Плохая')
    else
      writeln('Средняя');
  writeln('Средний балл — ', Sr);
end.