1.2.2 Написать программу нахождения минимального из 5 целых чисел, использующую функцию поиска минимального из двух чисел. Язык паскаль

Цель задачи понятна: написать программу на Паскале, которая находит минимальное из пяти целых чисел, используя функцию поиска минимума двух чисел.

План решения

• Объявим функцию Min2, которая возвращает меньшие из двух чисел.
• Считываем пять целых чисел: a1, a2, a3, a4, a5.
• Вычисляем минимальное последовательно: m = Min2(a1, a2); затем m = Min2(m, a3); далее m = Min2(m, a4); и наконец m = Min2(m, a5).
• Выводим получившееся минимальное значение m.

Пояснение по шагам

• Функция Min2 просто сравнивает два целых и возвращает меньший из них.
• Слева направо берем минимум между двумя числами и текущее минимальное, так что после пяти вызовов мы получим минимальное из всех пяти.
• Такой подход удовлетворяет условию задачи «использовать функцию поиска минимального из двух чисел».

Пример кода на Pascal

program MinOfFive; function Min2(a, b: integer): integer; begin if a < b then Min2 := a else Min2 := b; end;

var a1, a2, a3, a4, a5, m: integer;

begin // Считываем пять целых чисел (разделитель может быть пробел или перевод строки) ReadLn(a1, a2, a3, a4, a5);

m := Min2(a1, a2); m := Min2(m, a3); m := Min2(m, a4); m := Min2(m, a5);

WriteLn(m); end.

Дополнительные заметки

• Можно также писать считывание по строкам или использовать Read вместо ReadLn, если вход подаётся построчно или через пробелы.
• Программа корректно работает с отрицательными числами и с повторяющимися значениями.
• Временная сложность — O(1), потому что константное количество сравнений (4 вызова Min2).