10 учеников проходили тестирование по 5 темам какого либо предмета.Вычислить суммарный(по всем темам)средний балл,полученный учениками.Сколько учеников имеют суммарный балл ниже среднего ?
alexooooon:
сумарный бал ниже среднего - это сколько?
Ответы
Ответ дал:
4
Я уже сделал на паскале....
Ладно пусть будет...
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.
Эксель скинул
Ладно пусть будет...
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.
Эксель скинул
Приложения:
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад