program arrayReduction implicit none real, dimension(1:6) :: a = (/21.0, 12.0, 33.0, 24.0, 15.0, 16.0/) Print *, maxval(a) Print *, minval(a) Print *, sum(a) Print *, product(a) end program arrayReduction
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more