Ввод-Вывод

[Joker_35815]

на ForTran77
А). Сформировать файл, компонентами которого являются действительные числа.
В). Найти:
- наибольшее из значений, записанных в файле;
- разность первой и последней компонент файла.

с первой частью (A) я справился:

real a,b,c,d,e
open(10,file='D:\Joker\4319\cool.tx t',status='new' )
read(*,*) a,b,c,d,e
write(10,100) a,b,c,d,e
100 format(5(F10.5','))
close(10,status='keep')
end
помогите пожалуйста сделать B....я уже пол google перерыл, но ничего вразумительного так и не нашел((((

[Serebro]

Сообщение от Joker_35815

на ForTran77

В). Найти:
- наибольшее из значений, записанных в файле;
- разность первой и последней компонент файла.

      OPEN(10,FILE='aaa.txt')
      READ(10,*)  A
      amax=A

10    CONTINUE
      IF (.NOT.EOF(10)) THEN
        READ(10,*)  B
        if (amax.lt.B) then
          amax=B
        end if
        GOTO 10
      END IF

      C=A-B
      WRITE(*,*) amax,C

      CLOSE(10)
      END

[Joker_35815]

спасибо за помощь))