Известны данные о росте 15 юношей класса, по убыванию. ни одна пара учеников не имеет одинакового роста. в начале учебного года в класс поступил новый ученик (известно, что его рост не совпадает с ростом ни одного из учеников класса, превышает рост самого низкого ученика и меньше роста самого высокого). а) вывести фамилии всех учеников, рост которых меньше роста новенького. на языке паскаль. через процедуры и функции. без условной функции (я так понимаю здесь необходима сортировка массива? ) нид хелп плз

Не сказано, как хранятся данные. допустим f[1..15] - фамилия, r[1..15] - рост readln(newr); for i: =1 to 15 do   if r[i]< newr then writeln(f[i]); ручной ввод: var   i,newr: integer;   f: array[1..15]of string;   r: array[1..15]of integer; begin writeln('введите фамилии и рост (в см) по убыванию'); for i: =1 to 15 do   begin   write('фамилия: ');   readln(f[i]);   write('рост (в см): ');   readln(r[i]);   end; writeln('введите рост (в см) нового уч-ка, не ни с кем'); readln(newr); for i: =1 to 15 do  if r[i]< newr then writeln(f[i]); end.

Буквы. ударные или безударные слоги.  сам знаки могут выглядеть как угодно, например, точка-тире.   на ум приходят пдд. напр, на светофоре знак красного человечка "стой", зеленого "иди" и т.д.