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

236

392

Посмотреть ответы 2

Ответы на вопрос:

тикимиккной

Информатика

4,7(64 оценок)

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.