Составьте программу подсчета числа элемента одновременного массива, превосходящих среднее арифметическое элементов данного массива.

Программа написана на PascalABC.NET

// Ниже код:

program element;
var a: array[1..1000] of real;    i, j, c: integer;    b: real;    begin  writeln('Введите число элементов: ');  read(j);    for i:= 1 to j do    begin      read(a[i]);      b:= b + a[i];    end;    b:= b / j;    for i:= 1 to j do    if a[i] > b then inc(c);    writeln;  write('ответ: ', c);end.