Plz help with code

This is my code from problem #2

program HW04_02 implicit none real, dimension(20):: array1 , array2 integer :: i

array1 = (/ 0.2481, 0.4133, 0.4961, 0.4618, 0.3686, & -0.0495, -0.3477, -0.4219, -0.4954, -0.4156, & -0.4162, 0.3258, -0.0574, 0.2749, -0.1003, & -0.2711, 0.0383, -0.3934, 0.3173, -0.2402/) array2(1)=array1(1) do i = 2, 20 array2(i)=array2(i-1)+array1(i)

end do write(*,*) array2(1),array2(2),array2(3),array2(4),array2(5) write(*,*) array2(6),array2(7),array2(8),array2(9),array2(10) write(*,*) array2(11),array2(12),array2(13),array2(14),array2(15) write(*,*) array2(16),array2(17),array2(18),array2(19),array2(20)

end program HW04_02

3. Wirite a Fortran program that takes the first one- dimensional array from problem 2 and uses reshape to store the values in a 4x5 array with the rows and columns as show. Use a loop to print the array one row at a time using exponential notation so that the lines each look like 0.2481E+00 0.3686E+00 0.4954E+00 -0.5740E-01 0.3830E-p1