Известен рост каждого ученика группы. Рост мальчиков задан отрицательными числами. Верно ли, что средний рост мальчиков не превышает рост девочек более чем на 10 см?

Question

Информатика

Емельян

15 ноября, 14:19

Известен рост каждого ученика группы. Рост мальчиков задан отрицательными числами. Верно ли, что средний рост мальчиков не превышает рост девочек более чем на 10 см?

+1

Ответы (1)

Знаете ответ на вопрос?

Фессалоника · Answer 1

Var

m, d, x:real;

n, nm, i:integer;

begin

write ('Сколько учеников:') ;

readln (n) ;

for i:=1 to n do

begin

readln (x) ;

if x<0 then

begin

m:=m+x;

nm:=nm+1

end

else d:=d+x;

end;

m:=-m/nm;

d:=d / (n-nm) ;

writeln;

if m-d<=10 then writeln ('Да, верно')

else writeln ('Нет, неверно') ;

end.