Правильно или нет вот в чём вопрос но ошибок нет...

[Alexcool]

Значит дали нам задание:Дана действительная матрица размером 8х6. Определить b1.....b8, равные соответственно произвидениям элементов строк. Ну мы его решили такими способами :


PROGRAM Z5
INTEGER , PARAMETER::N=8,M=6
REAL A(N,M),B(N)
INTEGER I,J
OPEN(1,FILE='Z5.TXT')
READ (1,*)((A(I,J),J=1,M),I=1,N)
B(I)=1.0
DO I=1,N
DO J=1,M
B(I)=B(I)*A(I,J)
END DO
END DO
PRINT 1 ,B;WRITE(1,1) B
1 FORMAT (2X,'PROIZVIDENIE B'/4F10.4)
END PROGRAM Z5

и

PROGRAM Z5
INTEGER , PARAMETER::N=8,M=6
REAL A(N,M),B(N)
INTEGER I,J
OPEN(1,FILE='Z5.TXT')
READ (1,*)((A(I,J),J=1,M),I=1,N)
B(I)=1.0
DO I=1,N
DO J=1,M
B(I)=PRODUCT(A)
END DO
END DO
PRINT 1 ,B;WRITE(1,1) B
1 FORMAT (2X,'PROIZVIDENIE B'/4F10.4)
END PROGRAM Z5

Обе программы работают без ошибок но B(I)=1.0 мне говорят что я поставил не туда.....я в замешательстве куда её нужно ставить . Помогите кто знает в чём ошибка. Если она вообще есть .....

[Serebro]

B(I)=1.0
DO I=1,N
DO J=1,M
B(I)=B(I)*A(I,J)
END DO
END DO

Здесь значение I не определено, поэтому не определено и значение B(I).


В обеих программах нужно переставить B(I) так:

DO I=1,N

  B(I)=1.0

  DO J=1,M 
    B(I)=B(I)*A(I,J)
  END DO

  !  Здесь можно вывести значения произведения по строкам.

END DO

[Alexcool]

Спасибо за помощь и книгу) книга очень хорошая)