C++ циклы. добрый день. нужно написать программу с использованием 3-х циклов. (for, while, while-do) не понимаю в этом, надеюсь вы мне . , . времени до сдачи немного.

Если друг оказался вдруг и не друг, и не враг, а - так, если сразу не разберешь, плох он или хорош, - парня в горы тяни - рискни! не бросай одного его, пусть он в связке в одной с тобой - там поймешь, кто такой. если парень в горах - не ах, если сразу раскис и - вниз, шаг ступил на ледник и - сник, оступился - и в крик, - значит, рядом с тобой - чужой, ты его не брани - гони: вверх таких не берут, и тут про таких не поют. если ж он не скулил, не ныл, пусть он хмур был и зол, но - шел, а когда ты упал со скал, он стонал, но - держал, если шел за тобой, как в бой, на вершине стоял хмельной, - значит, как на себя самого, положись на него.

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