f(n,a)1 f (n, a)
2      int n;
3      double a[];
4 {
5    double b[51];
6    int i, j;
7 
8    i = 0;
9 
10    for (j = n - 1; j > 0; j--)
11      b[i++] = 0;
12 
13    if (b[0] > b[i - 1])
14      a[i] = b[i - 1];
15 }
16