package Array_Handling is type Positive_Array is array(Natural range <>) of Positive; -- Returns the number of occurrences of the given Element in A. function Occurrence(A: Positive_Array; Element: Positive) return Natural; -- Returns the maximum value of A. function Get_Max(A: Positive_Array) return Positive; -- Returns the maximum of all values in A that is smaller than Threshold. -- Returns 0 if no element in A is smaller than Threshold. function Get_Relative_Max( A : Positive_Array; Threshold: Positive) return Natural; end Array_Handling;