Известны данные о росте 15 юношей класса, упорядоченные по убыванию. Ни одна пара...

Question

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

а) Вывести фамилии всех учеников, рост которых меньше роста новенького.
На языке паскаль. через процедуры и функции. БЕЗ УСЛОВНОЙ ФУНКЦИИ
(я так понимаю здесь необходима сортировка массива?)
Срочно нид хелп плз

Comments

Ну вообще без условной ф-ии не обойтись. Ведь сравнивать надо. Сортировка не нужна, массив ведь упорядочен. Сейчас напишу.

---

Буду очень благодарен.

---

задача крайне неконкретно поставлена. Если полную программу делать, то придется с клавиатуры набивать данные. Сделать7

---

С клавиатуры будет только в плюс

---

15 фамилий и рост придумывать не айс. К тому же, придется помнить данные о всех, т.к. рост новенького не должен совпадать. Может, автоматом заполнить?

---

В принципе можно и автоматом. А ручной ввод я уже сам сделаю. Просто у нас на практике автоматическое заполнение не разрешено. Так что организовать ручной не является проблемой)

---

Организовать да, не проблема, а вот вводить потом - не позавидуешь!)))

---

Да и вводить не проблема))

---

Счастливчик)) А для меня придумывать данные в лом))

Answer 1

Не сказано, как хранятся данные. Допустим f[1..15] - фамилия, r[1..15] - рост

readln(newr);
for i:=1 to 15 do
  if r[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]end.