Как найти средний рост учеников

Мне кажется, что здесь нужно просто сообразить, что этот средний рост всех учеников заключен между числами учеников без учёта роста самого маленького 147 целых и 3/7 сантиметра.
Средний рост $n-1$ учеников (т.е. не учитывается «лямка», как единица счёта, но учитывается его рост) — 148 целых и 4/7 сантиметра.
А это ничего не дает.
Даже при n=3 (при n=2 задача тривиальна) всегда можно подобрать три различных числа числа, так что:
1) Среднее двух наименьших равно $$147\frac<3><7> raquo; /><br />2) Среднее двух наибольших равно <img decoding async$

Одно из предположений — опечатка в условии, и правильная формулировка:
$L_0$ , рост самого высокого $x$ , а самого низкого $y$ ,
то можно составить соотношение:
$$\dfrac <x-y><8>=\dfrac <n-1><7> raquo; /><br />из которого следует, как справедливо отмечал venco ,<br />что <img decoding async$ ),
а также, что разница в росте $x-y$ кратна $8$ .

Тогда можно составить другие соотношения:
$L_0-x=1032\cdot k$
$L_0-y=1040\cdot k$
$x-y=8k$
$https://dxdy-01.korotkov.co.uk/f/8/9/3/89383e96eae30acb12c3ee5394fcb2d582.pngL_0-(x+y)=2072\cdot k$$

Батороев
Если я нигде не напутал, то средний рост учеников (в зависимости от $k=1\dots 5$ ) принадлежит отрезку $$\left[\frac<1032k+149><7k+1>;\frac<1040k+147><7k+1>\right] raquo; />, т.е. (объединяя отрезки) <img decoding async$ и $y$ такие, что будут удовлетворять условию, но давать разные ответы.
Например, $k=1$
$n=8$

$x=152$ , $y=144$
$L_0 = 1032+152=1040+144 = 1184$

Написать программу на языке прлграммирования Pascal.
В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Выберите правильный вариант выражения, составьте с ним предложение.

Две новые столовые / две новых столовых; две ученические тетради / две ученических тетради; добрые три часа / добрых три часа; каждые два часа / каждых два часа; три большие дома / три больших дома; три лисьи шапки / три лисьих шапки; целые четыре месяца / целых четыре месяца; четыре высокие горы /четыре высоких горы.

Выберите правильную форму глагольного или именного управления.

Вершить судьбами – вершить судьбы; выйти с трамвая – выйти из трамвая; ехать на трамвае – ехать трамваем – ехать в трамвае; ждать поезд – ждать поезда; игнорировать на ухаживание – игнорировать ухаживание; контроль над производством – контроль за производством; любительница печения пирогов – любительница печь пироги; наблюдать за больным – наблюдать больного; не купить спички – не купить спичек; описывается о жизни – описывается жизнь; оплачивать за проезд – оплачивать проезд; отзыв о дипломной работе – отзыв на дипломную работу; памятник Пушкину – памятник Пушкина; подчеркнуть о необходимости – подчеркнуть необходимость; по окончании работ – по окончанию работ; превосходство над другими – превосходство перед другими; предел терпения – предел терпению; преимущество перед соперником – преимущество над соперником; прийти из армии – прийти с армии; продавать за три рубля – продавать по три рубля; разведка на нефть – разведка нефти; способен на жертвы – способен к жертвам; тосковать по другу – тосковать о друге; уверенность в победу – уверенность в победе; удостоен наградой – удостоен награды; характерен демократу – характерен для демократа; характеристика ученика – характеристика на ученика.

Здравствуйте! Помогите пожалуйста решить задачу по теме Паскаль : В группе определить самого высокого мальчика и самую маленькую девочку.

1. Определить средний рост девочек и мальчиков одного класса. Количество учеников в классе заранее неизвестно.

Читать:

Как в канве сделать тень от объекта

Uses crt;
Var
b,g: Array[1..100] of Integer;
d,m,s1,s2,i: Integer;
sr1,sr2: Real;
BEGIN
Clrscr;
Writeln(‘Количество мальчиков: ‘); Readln(m);
Writeln(‘ВВОД:’);
For i:=1 to m do
begin
Readln(b[i]);
s1:=s1+b[i];
end;
sr1:=s1/m;
Writeln(‘Количество девочек: ‘); Readln(d);
Writeln(‘ВВОД:’);
For i:=1 to d do
begin
Readln(g[i]);
s2:=s2+g[i];
end;
sr2:=s2/d;
Writeln(‘Ср. рост мальчиков: ‘,sr1:2:2);
Writeln(‘Ср. рост девочек: ‘,sr2:2:2);
Readln
END.

2. В ЭВМ вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.

Var m:integer; i,n:byte; s:real;
begin
s:=0;
Writeln(‘Vveddite kol-o uchenikov’);
readln(n);
for i:=1 to n do
begin
readln(m);
Writeln(i ,’ chlen = ‘,m);
s:=s+m;
end;
Writeln(‘srednee ‘,s/n:1:1);
readln;
end.

3. По данным свединием об участниках класса определить среднюю массу мальчиков и средний рост девочек.Кто из участников класса самый высокий?

TYPE student=record
fam,pol:string;
rost:100..220;
mas:30..200;
end;
var
s:array[1..100] of student;
i,n,u:integer; sr,sv,kd,km,max:real;
begin
write(‘Количество учеников= ‘);
readln(n);
writeln(‘Введите данные об учениках’);
for i:=1 to n do
begin
writeln(i,’ ученик’);
with s[i] do
begin
write(‘Фамилия: ‘); readln(fam);
write(‘Пол (М/Ж): ‘); readln(pol);
write(‘Рост: ‘); readln(rost);
write(‘Вес: ‘); readln(mas);
end;
end;

for i:=1 to n do
begin
with s[i] do
begin
if pol=’М’ then
begin
km:=km+1;
sv:=sv+mas;
end;
if pol=’Ж’ then
begin
kd:=kd+1;
sr:=sr+rost;
end;
end;
end;

sv:=sv/km;
sr:=sr/kd;
writeln(‘Средняя масса мальчиков= ‘,sv);
writeln(‘Средний рост девочек= ‘,sr);

max:=100;
for i:=1 to n do
begin
with s[i] do
if rost>max then
begin
max:=rost;
u:=i;
end;
end;
with s[u] do
writeln(‘Самый высокий = ‘,fam);

4. Рост 20 учеников класса представлен в виде массива. Рост мальчиков условно задан отрицательными числами. Определить средний рост мальчиков и средний рост девочек.

Program fff;
Const
n = 20;
type
mas = array[1..n] of real;
var
M,D,m1,d1: integer;
a: mas;
i: byte;
begin
randomize;
for i:=1 to n do a[i] := Random(450)-300;
for i:=1 to n do
if a[i] > 0 then
begin
D := D + Trunc(a[i]);
d1 := d1 + 1;
end
else
begin
M := M + Trunc(a[i]);
m1 := m1 + 1;
end;
writeln (‘Средний рост девушек:= ‘, D/d1:0:2);
writeln (‘Средний рост мальчиков:= ‘, M/m1*-1:0:2);
end.

На основе данных примеров, если хоть немного разбираетесь в паскале без труда решите свою задачку. Удачи!