Не сказано, как хранятся данные. Допустим 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]
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.