Часть II

1)type name = (Mary, Jane, Kim, Bob, Jan, Pit, Tom, Sara);

data = record

male: boolean; {пол: true - мужской, false - женский}

height:140..200 end; {рост}

end;

group = array[name] of data;

1. Опишите функцию FHeight(G), определяющую средний рост женщин из группы G

2. Опишите функцию MaxHeight(G), определяющую наибольший рост женщин из группы G

3. Опишите функцию Higher(G), определяющую имя самого высокого мужчины из группы G

4. Опишите функцию Lower(G), определяющую имя самой невысокой женщины из группы G

5. Опишите функцию Lower(G), определяющую имя самого невысокого мужчины из группы G

6. Опишите функцию MHeight(G), определяющую средний рост мужчин из группы G

7. Опишите логическую функцию Same(G), проверяющую, есть ли в группе G хотя бы два человека одного роста

8. Опишите логическую функцию SameMale(G), проверяющую, есть ли в группе G хотя бы два мужчины одного роста

9. Опишите логическую функцию Test(G), проверяющую, что в группе G самая высокая из женщин ниже самого высокого из мужчин

10. Опишите логическую функцию Test(G), проверяющую, что в группе G самая высокая из женщин ниже самого низкого из мужчин

11. Опишите логическую функцию Test(G), определяющую, есть ли среди женщин группы G женщины с ростом x

12. Опишите функцию Name(G), определяющую имя мужчины из группы G с ростом x

13. Опишите логическую функцию Test(G), проверяющую, есть ли в группе G хотя бы один мужчина, рост которого меньше минимального женского роста

14. Опишите функцию CountMaxHeight(G), определяющую количество женщин в группе G, имеющих наибольший рост