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

Question

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

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<br>    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('Да, верно')<br>  else writeln('Нет, неверно');
end.