даны целые числа a1,a2,. Известно,что a1>0

program main
  implicit   none
integer :: i(1), n(1)
integer :: arr(6)
arr = (/1, 4, -1, 2, 77, 5/)
 
n = maxval(arr, mask = arr > 0)
i = maxloc(arr, mask = arr > 0)
 
write (*,*) n, i
end program main

program main
implicit   none
integer :: arr(10), maximum, i
logical :: l
 
 arr = (/1, 4, 5, 2, 7, 5, 2, 6, -70, 10/)
 
 do i=1,10
    l = arr(i) < 0
    if (l) then
        maximum = maxval (arr(1:i-1))
        exit
    end if
 end do
 
 if (l) then
    print*, maximum
 else
    print*, "Нет отрицательных элементов массива"
 end if
 
end program main

    Program lr6
    dimension x(100)
    Print*, 'Vvedit` k=st n ta elementi a'
    Read(5,*) n,(x(i),i=1,n)
    xmax=x(1)
    do i=2,n
    if (x(i)<0)then
    xmax=x(i)
    k=1
    endif
    enddo
    Print*, 'Rezyltat'
    Print*, 'xmax', xmax
    end

program test
  implicit   none
    integer, parameter :: N  = 6
    integer :: i, minInd, j(1)
    integer, dimension(N) :: arr
    
    arr = (/3, 8, -1, 7, 6, 5/)
    
    do i =1,N
        if (arr(i) < 0) then
            minInd = i
            exit
        end if
    end do
    j = maxloc (arr(minInd+1:N), mask = arr > 0 )
    write (*,*) "IndMaxVal=", j+minInd
    write (*,*) "maxValue=", arr(j+minInd)
end program test

program test
  implicit   none
    integer, parameter :: N  = 6
    integer :: minInd(1), j(1)
    integer, dimension(N) :: arr
    
    arr = (/3, 8, -1, 7, 6, 5/)
    
    minInd = minloc (arr, mask = arr < 0)
    j = maxloc (arr(minInd(1)+1:N), mask = arr > 0 )
    write (*,*) "IndMaxVal=", j+minInd
    write (*,*) "maxValue=", arr(j+minInd)
end program test