10 учеников проходили тестирование по 5 темам какого или предмета.Вычислить суммарный(по

program zz1;
var i,j,s,k:integer;sr:real;
mas:array[1..10,1..5] of integer;
begin
for i:=1 to 10 do // вводим с клавиатуры исходные данные, записываем их в массив и высчитываем сумму
begin
for j:=1 to 5 do
begin
writeln( введите итог тестирования ,i,-го воспитанника по ,j,-му предмету);
read(mas[i,j]);
s:=s+mas[i,j];
end;
end;
sr:=s/50; // обретаем среднее
writeln( суммарный средний балл = , sr);// выводим ответ
s:=0;
for i:=1 to 10 do
begin
for j:=1 to 5 do
s:=s+ mas[i,j]; // получаем сумму балов воспитанника
if slt;sr then k:=k+1; // считаем сколько воспитанников имеет сумму меньше средней
s:=0;
end;
write( количество воспитанников имеющих суммарный балл ниже среднего = , k); // выводим ответ
end.