В таблице хранятся следующие данные об учениках: фамилия, имя, отчество, рост, вес. Вычислить средний рост учеников, найти самого
254
350
Ответы на вопрос:
Type Uchenik=Record
Fam,Name,Surname:string[20];
Rost,massa:integer;
End;
Var
sr:real;
n,k,i,max,min:integer;
s1,s2:string[20];
A:array[1..100] of Uchenik;
Begin
sr:=0;max:=0;min:=500;k:=0;
write('Введите кол-во учеников: ');readln(n);
For i:=1 to n do
With a[i] do
Begin
writeln('Введите информацию о ',i,'-ом ученике');
write('Фамилия: ');readln(Fam);
write('Имя: ');readln(Name);
write('Отчество: ');readln(Surname);
write('Рост: ');readln(Rost);
write('Масса: ');readln(Massa);
if Rost>max then
Begin
max:=Rost;
s1:=Fam;
End;
if Rost<min then
Begin
min:=Rost;
s2:=Fam;
End;
sr:=sr+Rost;
if Rost>170 then inc(k);
End;
writeln('Средний рост учеников: ',sr/n:0:2);
writeln('Самый высокий ученик: ',s1,' его рост ',max);
writeln('Самый низний ученик: ',s2,' его рост ',min);
writeln('Кол-во учеников которые могут заниматься в баскетбольной команде: ',k);
End.
Fam,Name,Surname:string[20];
Rost,massa:integer;
End;
Var
sr:real;
n,k,i,max,min:integer;
s1,s2:string[20];
A:array[1..100] of Uchenik;
Begin
sr:=0;max:=0;min:=500;k:=0;
write('Введите кол-во учеников: ');readln(n);
For i:=1 to n do
With a[i] do
Begin
writeln('Введите информацию о ',i,'-ом ученике');
write('Фамилия: ');readln(Fam);
write('Имя: ');readln(Name);
write('Отчество: ');readln(Surname);
write('Рост: ');readln(Rost);
write('Масса: ');readln(Massa);
if Rost>max then
Begin
max:=Rost;
s1:=Fam;
End;
if Rost<min then
Begin
min:=Rost;
s2:=Fam;
End;
sr:=sr+Rost;
if Rost>170 then inc(k);
End;
writeln('Средний рост учеников: ',sr/n:0:2);
writeln('Самый высокий ученик: ',s1,' его рост ',max);
writeln('Самый низний ученик: ',s2,' его рост ',min);
writeln('Кол-во учеников которые могут заниматься в баскетбольной команде: ',k);
End.
Объяснение:
Ориентировочно 3,8 килограмма. Вес зависит от марки бензина и окружающей температуры.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
milka23061423.08.2020 18:51
-
svetlanasen1209.12.2021 04:36
-
bubles1305.02.2020 23:26
-
NadiaU014.09.2021 09:48
-
Azozylya24.06.2023 18:46
-
Fidan05401.05.2022 08:29
-
66666666ak29.05.2021 19:32
-
JanoX05.03.2021 16:31
-
BrainDay1219.05.2021 12:28
-
aloaloaloalo15.06.2020 17:44
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.