Имеются сведения об учениках класса. Определить средний вес мальчиков и средний рост девочек. Кто из учеников класса самый высокий?
115
305
Ответы на вопрос:
uses crt;
const nmax=30;
type
uchenik=record
fam:string[20];
pol:char;
rst:byte;
ves:byte;
end;
var z:array[1..nmax] of uchenik;
n,i,j,mx,imx,kd,km:byte;
r,v:integer;
begin
clrscr;
repeat
write('Количество учеников до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите данные об учениках:');
for i:=1 to n do
begin
writeln('Ученик ',i);
with z[i] do
begin
write(' фамилия: ');readln(fam);
repeat
write(' пол d/m: ');readln(pol);
until pol in ['d','m'];
repeat
write(' рост (от 100 до 200): ');readln(rst);
until rst in [100..200];
repeat
write(' вес (от 40 до 80): ');readln(ves);
until ves in [40..80];
end;
end;
mx:=0;imx:=1;
km:=0;kd:=0;
r:=0;v:=0;
for i:=1 to n do
begin
if z[i].pol='m' then
begin
km:=km+1;
r:=r+z[i].rst;
if (z[i].rst>mx)then
begin
mx:=z[i].rst;
imx:=i;
end;
end
else
begin
kd:=kd+1;
v:=v+z[i].ves;
end;
end;
if km=0 then writeln('Мальчиков в списке нет!')
else
begin
writeln('Средний рост мальчиков=',round(r/km));
writeln('Самый высокий ',z[imx].fam);
end;
if kd=0 then writeln('Девочек в списке нет!')
else writeln('Средний вес девочек=',round(v/kd));
readln
end.
const nmax=30;
type
uchenik=record
fam:string[20];
pol:char;
rst:byte;
ves:byte;
end;
var z:array[1..nmax] of uchenik;
n,i,j,mx,imx,kd,km:byte;
r,v:integer;
begin
clrscr;
repeat
write('Количество учеников до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите данные об учениках:');
for i:=1 to n do
begin
writeln('Ученик ',i);
with z[i] do
begin
write(' фамилия: ');readln(fam);
repeat
write(' пол d/m: ');readln(pol);
until pol in ['d','m'];
repeat
write(' рост (от 100 до 200): ');readln(rst);
until rst in [100..200];
repeat
write(' вес (от 40 до 80): ');readln(ves);
until ves in [40..80];
end;
end;
mx:=0;imx:=1;
km:=0;kd:=0;
r:=0;v:=0;
for i:=1 to n do
begin
if z[i].pol='m' then
begin
km:=km+1;
r:=r+z[i].rst;
if (z[i].rst>mx)then
begin
mx:=z[i].rst;
imx:=i;
end;
end
else
begin
kd:=kd+1;
v:=v+z[i].ves;
end;
end;
if km=0 then writeln('Мальчиков в списке нет!')
else
begin
writeln('Средний рост мальчиков=',round(r/km));
writeln('Самый высокий ',z[imx].fam);
end;
if kd=0 then writeln('Девочек в списке нет!')
else writeln('Средний вес девочек=',round(v/kd));
readln
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
PavlWhite24919.12.2022 06:48
-
Kristina1605lps17.02.2021 14:01
-
ЛунаВаленте29.04.2023 17:55
-
us0504200728.01.2022 07:49
-
tatyanasotniko25.06.2023 12:55
-
елизавета4щ09.10.2020 22:49
-
Easy6668906.05.2023 09:43
-
Nickhoffmanru21.12.2022 06:42
-
hahahagall16.08.2020 04:52
-
gladkova2002d02.04.2021 04:52
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.