Спрограммной на паскале, ) используя следующий фрагмент программы, опишите перечисленные ниже функции: type name = (аня, валя, женя, петя, саша, таня, шура, юра); information = record pol : (man, woman); height : 140..200 end; group = array [name] of information; а) функция средрост( гр ) определяет средний рост женщин из группы гр; б) функция высокий( гр ) определяет имя самого высокого мужчины из группы гр; в) логическая функция одинрост( гр ) проверяет, есть ли в группе гр хотя бы два человека одинакового роста.

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 есть минимум два человека одного роста

1.найти площадь каждой комнаты(длину умножить на ширину) 2.сложить площади всех комнат