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
    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.