массив из N целых положительных чисел. Определить наименьшую цифру у каждого числа. через подпрограмму ( Free Pascal )

[Алексей НТ]

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


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Mad_Cat]

function GetMinDigit(X:integer):byte;
var min:byte;
begin
min:=9;
while x>0 do
begin
if X mod 10<min then min :=x mod 10;
x:=x div 10;
end;
GetMinDigit:=min;
end;