1. Write an Fortran programming code:

a) Write a function to find the average of N REAL numbers in an array A(100) (N may be up to 100; the program should check that it is not more). Of course you need a main program to invoke the function. HINT: You may declare an array by eg REAL A(100) in the main program, and by A(N) in the subprogram, where N is an argument.

b) As above, but for a subroutine.