Дан целочисленный массив из 10 элементов. Элементы массива могут принимать целые значения от 0 до 100 - баллы учащихся

program mark;

const n=10;

var a:array [1..n] of integer;

i, j: integer;

s: real;

begin

s:= 0;

for i:= 1 to n do

begin

readln(a[i]);

s:= s + a[i];

end;

j:= 0;

for i:= 1 to n do

begin

if a[i] > s / 10 then j:= j + 1;

end;

writeln(\'Средний бал: \', s/10);

writeln(\'Количество учеников,у которых бал выше среднего: \',j);

end.