Напишите функцию, вычисляющую минимальное значение из двух чисел. С помощью этой функции вычислите минимальное значение из 10 чисел. (Паскаль)

Ответ:

Function min(a, b:Integer): Integer;

Begin

   if a > b then

       min := b

   else

       min := a;

end;

Begin

   Write(min(1, min(2, min(3, min(4, min(5, min(6, min(7, min(8, min(9, 10))))))))));

end.

Объяснение:

Чтобы найти минимум из нескольких значений, нужно передавать аргументом функции эту же функцию, но со следующим значением. На русском: Мы сравниваем не 8, 9 и 10, а 8 и результат сравнения 9 и 10 (результат получаем с помощью функции)