10 учеников проходили тестирование по 5 темам какого либо предмета.Вычислить суммарный(по всем темам)средний балл,полученный учениками.Сколько учеников имеют суммарный балл ниже среднего ?

Я уже сделал на паскале....
Ладно пусть будет...
var
a: array[1..10] of integer;
i,j,k,sum,d:integer;
h:real;
begin
d:=0;
    for i:=1 to 10 do
        for j:=1 to 5 do
            begin
                readln(a[j]);
                if j=5 then
                    begin
                    sum:=0;
                        for k:=1 to 5 do
                            sum:=sum+a[j];
                    h:=sum/5;
                    writeln(h:0:0); // Если нужно точное значение, поменяйте последний 0 на 2
                    if h<7 then inc(d)
                    end;
            end;
    write(d, ' учеников - имеют средний балл ниже среднего');
end.

Эксель скинул