Знамениты данные о росте 15 юношей класса, упорядоченные по убыванию. Ни
Известны данные о росте 15 юношей класса, упорядоченные по убыванию. Ни одна пара учеников не имеет одинакового роста. В начале учебного года в класс поступил новый воспитанник (известно, что его рост не совпадает с ростом ни одного из воспитанников класса, превосходит рост самого низкого воспитанника и меньше роста самого высочайшего).
а) Вывести фамилии всех учеников, рост которых меньше роста новенького.
На языке паскаль. через процедуры и функции. БЕЗ УСЛОВНОЙ ФУНКЦИИ
(я так разумею тут нужна сортировка массива?)
Безотлагательно нид хелп плз
Сархошьян
Анжелика
Ну вообщем без условной ф-ии не обойтись. Ведь сопоставлять надо. Сортировка не нужна, массив ведь упорядочен. Сейчас напишу.
Требушевская
Евгения
Буду очень признателен.
Руттен
Анжелика
задачка крайне неконкретно поставлена. Если полную программку делать, то придется с клавиатуры набивать данные. Сделать7
Dorogokupla Kostik
С клавиатуры будет только в плюс
Евгений Апандеев
15 фамилий и рост выдумывать не айс. К тому же, придется помнить данные о всех, т.к. рост новенького не обязан совпадать. Может, автоматом заполнить?
Леонид Мизинин
В принципе можно и автоматом. А ручной ввод я теснее сам сделаю. Просто у нас на практике автоматическое наполнение не разрешено. Так что организовать ручной не является неувязкой)
Semik Mavletdinov
Организовать да, не неувязка, а вот вводить потом - не позавидуешь!)))
Vadim Fomjuk
Да и вводить не неувязка))
Василий
Счастливец)) А для меня выдумывать данные в лом))
1 ответ
Сивилькаева
Дарина
Не сказано, как хранятся данные. Допустим f[1..15] - фамилия, r[1..15] - рост
readln(newr);
for i:=1 to 15 do
if r[i]lt;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]lt;newr then writeln(f[i]);
end.
readln(newr);
for i:=1 to 15 do
if r[i]lt;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]lt;newr then writeln(f[i]);
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Облако тегов