Опишите логическую функцию Test(G), проверяющую, что в группе G самая высокая из женщин ниже самого низкого из мужчин.
Условие:
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;
Условие:
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;
