задача про запись Опции

[Tina]

Помогите с решением,

Код

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

data = record
male : boolean; {пол: true - мужской, false - женский}
height:140..200; {рост}
cost : word; {зарплата}
end;

group = array[name] of data;

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

Сообщение отредактировано: volvo - 22.01.2005 11:38