Дан массив из 10 целых чисел. найти минимальный элемент массива.

function getSmallArrayItem(arr: array [0..9] of integer): integer;

begin

result := arr[0];

for i := 1 to (Length(arr) - 1) do

begin

 if (array[i] < result) then

   result := array(i);

end;

end;

Объяснение: