Задание на построение программы для работы с массивами

program noob
integer, parameter :: n = 10
integer :: array(n), i, count
real :: random, AVG
 
do i = 1, n
    call random_number(random)
    random = random * 98
    array(i) = random
end do
 
AVG = 0
do i = 1, n
    AVG = AVG + array(i)
end do
 
AVG = AVG / n
 
write(*,*) "AVG = ", AVG
 
count = 0
do i = 1, n
    if (array(i) < AVG) then
        array(i) = array(i) * (-1)
        count = count + 1
    end if
end do
 
write(*,*) "changed count = ", count
 
end program noob

program lox
 
integer :: i, count, n
integer, allocatable :: array(:)
real :: AVG
 
write(*,*) "enter array's size:"
read(*,*) n
 
allocate( array(n) )
 
do i = 1, n
    write(*,*) "enter element number", i
    read(*,*) array(i)
end do
 
AVG = 0
do i = 1, n
    AVG = AVG + array(i)
end do
 
AVG = AVG / n
 
write(*,*) "AVG = ", AVG
 
count = 0
do i = 1, n
    if (array(i) < AVG) then
        array(i) = array(i) * (-1)
        count = count + 1
    end if
end do
 
write(*,*) "changed count = ", count
 
deallocate(array)
 
end program lox