Найти минимальный элемент одномерного массива. решить с использованием функции.
pascalabc.net

function min(arr:array of integer):integer;

begin

 Result:=arr.Min;

end;

Begin

var arr:=ReadArrInteger(ReadInteger('Введите количество элементов в массиве'));

Print(min(arr));

end.