знающие люди помагите пожалуйста! *Fortran* 0

А какие языки программирования ты знаешь? Напиши на любом из них эту функцию и мы тебе поможем перевести её на фортран ;)

program fg
      implicit none
      integer A(10)
      logical func
      data A/1,2,3,4,5,6,7,8,9,10/
      
      IF(func(A,10).EQ.1) THEN
      print*,'Massiv A'
      END IF
      end program
      LOGICAL FUNCTION func(mas,size)
      INTEGER I, size, mas(10)
      DO I=1, size
      IF (MAS(i).LT.MAS(i+1)) THEN
      Func=1
      ENDIF
      END

вот попытка сделать задание только для 1 массива, было 11 ошибок, свела до одной

C:\Program Files\Microsoft Visual Studio\Common\MSDEV98\My Projects\CELSIUS\CELSIUS.FOR(26) : Error: An unterminated block exists.
 DO I=1, size

он ждёт окончания блока «DO .. ENDDO» (ENDDO у тебя нет). И цикл идти должен от 1 не до size, а до (size-1) (иначе на проверке порядка вылетишь за границу массива)

да… столь глупую ошибку через 10 минут осознала сама, но все же спасибо ;)

Недосмотрел чуть. Кусок

IF (MAS(i).LT.MAS(i+1)) THEN

     Func=1

ENDIF

вообще не очень рабочий, т.к. тогда массив  [10 9 8 7 6 5 4 3 1 2] он распознает как сохраняющий порядок (ведь MAS(9).LT.MAS(10) == TRUE)

да при проверке так и было, ввела переменную ещо одну и все ;)

можно ещо спросить

program none
      implicit none
      real x0, e, x
      print*, 'vvedite koeff tochnosti'
      read*, e
      print*, 'vvedite x0'
      read*, x0
1      x= log(x0)+3
      if (abs(x-x0) .LE. e) then
      print*, x
      else
      x0=x
      go to 1
      end if
      pause
      end

правильно ли по методу простых интерпритаций?

Вырвиглаз.