10 учеников проходили тестирование по 5 темам какого либо предмета.Вычислить суммарный(по всем темам)средний балл,полученный учениками.Сколько учеников имеют суммарный балл ниже среднего ?
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ладно пусть будет...
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.
Эксель скинул