
вводится последовательность натуральных чисел - рост учеников класса, не превосходящих 30. Ноль -
признак конца. Требуется вывести рост двух самых высоких учеников

Ответы на вопрос

Должно работать:
program prim;
var a: array[0..99999] of integer;
i:byte;
f:integer;
b,c:integer;
begin
for i:=0 to 99999 do begin
readln(a[i]);
if a[i]=0 then break;
f:=i;
end;
for i:=0 to f do begin
if a[i]>c then begin
if a[i]>b then b:=a[i] else c:=a[i];
end;end;
writeln(b, ' ',c);
end.



Для решения этой задачи, нужно следить за двумя наибольшими значениями роста, которые будут обновляться при каждом вводе нового числа. Как только вводится ноль, значит последовательность завершается, и мы выводим два самых высоких значения роста.
Вот пример кода на Python, решающего данную задачу:
pythondef find_two_highest_heights():
max_height1 = 0
max_height2 = 0
while True:
height = int(input("Введите рост ученика (0 для окончания ввода): "))
if height == 0:
break
if height > 30:
print("Рост ученика не должен превышать 30, пожалуйста, введите снова.")
continue
if height > max_height1:
max_height2 = max_height1
max_height1 = height
elif height > max_height2:
max_height2 = height
return max_height1, max_height2
highest1, highest2 = find_two_highest_heights()
print(f"Самые высокие ученики имеют рост {highest1} и {highest2}")
Пример работы программы:
scssВведите рост ученика (0 для окончания ввода): 160
Введите рост ученика (0 для окончания ввода): 155
Введите рост ученика (0 для окончания ввода): 165
Введите рост ученика (0 для окончания ввода): 150
Введите рост ученика (0 для окончания ввода): 170
Введите рост ученика (0 для окончания ввода): 0
Самые высокие ученики имеют рост 170 и 165
Обратите внимание, что ввод чисел будет продолжаться, пока не будет введен ноль. Если хотите изменить диапазон возможных значений роста учеников (например, до 35), замените число 30 на соответствующее значение в условии if height > 30:
.


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili