#include <oxstd.h>

main()
{
    decl ct, mx, i, cpos, dsum, time;

    ct = 250;
    mx = rann(ct, 1);
    time = timer();    // save starting time

    for (i = cpos = 0, dsum = 0.0; i < ct; ++i)
    {
        if (mx[i] > 0)
        {
            dsum += mx[i];
            ++cpos;
        }
    }
    println("lapsed time: ", timespan(time));
    println("count of pos.nos: ", cpos, " out of ", ct);
    println("mean of pos.nos:  ", dsum / cpos);
}
