function getSmallArrayItem(arr: array [0..9] of integer): integer;
begin
result := arr[0];
for i := 1 to (Length(arr) - 1) do
if (array[i] < result) then
result := array(i);
end;
Объяснение:
