Известны данные о росте 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;beginwriteln('Введите фамилии и рост (в см) по убыванию');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.