Program ex7
    integer a(5,5),b(5)
    real t
    logical f
    call random_seed()
    do i=1,5
        b(i)=0
        f=.TRUE.
        do j=1,5
            call random_number(t)
            a(i,j)=nint(100*t-50)
            if (a(i,j)<0 .and. f) then
                  b(i)=b(i)+1
            else
                f=.FALSE.
            end if
        end do
        Write(*,'(5i5)')(a(i,k), k=1,5)
        if (b(i)==0) then
            b(i)=5
        end if
    end do
    print *,''
    Write(*,'(5i2)')(b(i),i=1,5)
end

Пример работы дан в первом вложении.
Во втором вложении дана блок-схема по ГОСТ 19.701-90 (ISO 5807-85).