program TEST
    integer :: min_line, max_line
    real    :: array(5, 4), min=999999, max=-999999, temp

    read (*,*) array

    do i = 1, 4
     print *, array(:, i)
    end do

    do i=1,4
        do j=1, 5
            if (array(j, i) > max) then
                max = array(j, i)
                max_line = i
            end if
            if (array(j, i) < min) then
                min = array(j, i)
                min_line = i
            end if
        end do
    end do

    do i=1,5
        temp = array(i, min_line)
        array(i, min_line) = array(i, max_line)
        array(i, max_line) = temp
    end do

    print *

    do i = 1, 4
     print *, array(:, i)
    end do

    stop
end