The Java tutorial code that started this is:

public class ScoresAverage {

   public static void main(String[] args)
   {
       double scores[] = {  76 . 0 ,  84 . 5 ,  92 . 5 ,  88 . 0 ,  96 . 0  };
       double sum=  0 ;
       double average;

       for (int i =  0 ; i < scores.length; i++)
       {
           sum += scores[i];
       }

        average = sum / scores.length;

        System.out.println("The average of the scores is " + average);
        System.out.println(scores[ 4 ] + " is the fourth element in the scores array.");
        System.out.println("There are " + scores.length + " elements in this array.");
    }
}

And the literal Common Lisp translation offered is:

(let* ((scores-array #( 76 . 0   84 . 5   92 . 5   88 . 0   96 . 0 ))
       (total-score  0 ))
  ;; Mirror the Java code and iterate to calculate the total score.  Can call 'loop or 'dotimes.
  (loop for x from  0  below (array-total-size scores-array)
        do (setf total-score (+ total-score (svref scores-array x))))
  (format t "The average of the scores is ~F~%" (/ total-score (array-total-size scores-array)))
  (format t "~D is the ~:R element in the scores-array.~%" (svref scores-array  4 )  4 )
  (format t "There are ~D elements in the scores-array.~%" (array-total-size scores-array)))


I think that this is a reasonable literal translation, which meets Mike's stated goal nicely.