Ответы на вопрос:
Инарная матрица (двоичная матрица, (0, 1)-матрица) — матрица, элементы которой принадлежат множеству. — бинарнаяматрица. единичная матрица (на главной диагонали единицы, остальные элементы нулевые).
Type name=(anya,valya,zhenya,petya,sasha,tanya,shura,yura); gender=(man,woman); information=record pol: gender; height: 140..200 end; group=array[anya..yura] of information; function srrost(var gr: group): single; var i: name; s: single; n: integer; begin s: =0; n: =0; for i: =anya to yura do begin s: =s+gr[i].height; inc(n) end; srrost: =s/n end; function vysokiy(var gr: group): string; var i,j: name; h: integer; begin h: =gr[anya].height; j: =anya; for i: =valya to yura do begin if gr[i].height> h then begin h: =gr[i].height; j: =i end end; vysokiy: =j.tostring end; function odinrost(var gr: group): boolean; var i,j: name; flag: boolean; begin i: =anya; flag: =false; repeat j: =succ(i); while (not flag) and (j< =yura) do begin flag: =(gr[i].height< > gr[j].height); inc(j) end; flag: =(gr[i].height< > gr[j].height); if not flag then inc(i); until flag or (i=yura); odinrost: =flag end; var grp: group; i: name; g: 0..1; begin { ввод данных } for i: =anya to yura do begin write(i.tostring+': укажите пол м/ж числом 0/1 '); readln(g); if g=0 then grp[i].pol: =man else grp[i].pol: =woman; write(i.tostring+': укажите рост, см (140-200) '); readln(grp[i].height) end; { вычисления } writeln('средний рост равен ',srrost(grp): 0: 1); writeln('наиболее высокий человек - ',vysokiy(grp)); if odinrost(grp) then writeln('есть минимум два человека одного роста') else writeln('у всех в группе разный рост'); end. тестовое решение: anya: укажите пол м/ж числом 0/1 1 anya: укажите рост, см (140-200) 165 valya: укажите пол м/ж числом 0/1 1 valya: укажите рост, см (140-200) 170 zhenya: укажите пол м/ж числом 0/1 0 zhenya: укажите рост, см (140-200) 173 petya: укажите пол м/ж числом 0/1 0 petya: укажите рост, см (140-200) 178 sasha: укажите пол м/ж числом 0/1 0 sasha: укажите рост, см (140-200) 176 tanya: укажите пол м/ж числом 0/1 1 tanya: укажите рост, см (140-200) 170 shura: укажите пол м/ж числом 0/1 1 shura: укажите рост, см (140-200) 168 yura: укажите пол м/ж числом 0/1 0 yura: укажите рост, см (140-200) 175 средний рост равен 171.9 наиболее высокий человек - petya есть минимум два человека одного роста
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
алинагим31281106.10.2021 20:59
-
Анна20036111.01.2020 09:22
-
Dog777114.01.2023 00:20
-
Диана1029306.06.2020 05:44
-
22a03a198923.06.2021 14:51
-
grishchenkova025.03.2023 21:34
-
Aldiyar070826.08.2022 04:07
-
Олежик12131420.07.2020 23:47
-
lesya1614601.01.2021 03:35
-
проблемка418.06.2022 07:25
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.