Question

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

Answer 1

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

begin

 Result:=arr.Min;

end;

Begin

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

Print(min(arr));

end.