Нужно. в классе 20 учеников писали контрольную работу по . оценки как целые случайные числа в интервале от 2 до 5. напишите программу,которая подсчитывает средний за контрольную и определяет количество учеников, получивших ниже среднего.

Const
  n = 20;

var
  x: array[1..n] of integer;
  i, k, s: integer;
  c:real;
begin
  Randomize;
  Writeln('Полученные ');
  s := 0;
  for i := 1 to n do
  begin
    x[i] := Random(4)+2;
    Write(x[i]:2);
    s:=s+x[i];
  end;
  Writeln;
  c:=s/n;
  k:=0;
  for i := 1 to n do if x[i]<c then Inc(k);
  Writeln('Средний : ',c:4:2,', количество получивших ниже него: ',k)
end.

Тестовое решение:
Полученные
 5 2 5 2 5 3 4 2 2 2 2 4 5 2 4 4 5 5 4 4
Средний : 3.55, количество получивших ниже него: 8