Ad
#include <iostream>

double Mean(double x[], int n){
  double sum = 0;
  
  for(int i = 0; i < n; i++){
    sum += x[i];
  }
  
  return sum / n;
}
Imports NUnit.Framework

Module Test
    public function MinF(x, n)
        dim min as integer 
        dim i as integer
        
        min = x(0)
    
        for i = 1 to n
            if x(i) < min then
                min = x(i)
            end if
        next
    
        return min
    end function
End Module