oarsman
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору разобрался уже, нет в режиме совместимости как раз и не работает. Теперь вопрос по задаче: Определить строку с наименьшим кол-вом элементов больших числа d и поместить её в одномерный массив Код: PROGRAM laba8_2 REAL A(20,20) REAL B(40,40) REAL,dimension(1:z):: res REAL D OPEN(5,file='dat.txt') OPEN(6,file='res.txt') READ(5,*)((B(i,j),j=1,40),i=1,40),((A(i,j),j=1,20),i=1,20) WRITE(6,*)((B(i,j),j=1,40),i=1,40),((A(i,j),j=1,20),i=1,20) contains SUBROUTINE search INTEGER z,k,i,j,N dimension(1:40):: c DO i=1,40 k=0 DO j=1,40 IF(A(i,j)>D) THEN k=k+1 ENDIF ENDDO L(i)=k z=z+1 ENDDO min=L(1) N=1 DO i=2,z IF (L(i)<min) then N=i ENDIF ENDDO do j=1,40 c(i)=A(N,j) enddo end subroutine search WRITE(6,*)(c(i),i=1,40) end program laba8_2 | ошибка Цитата: --------------------Configuration: laba8_2 - Win32 Debug-------------------- Compiling Fortran... C:\Program Files\Microsoft Visual Studio\MyProjects\laba8_2\rus.for C:\Program Files\Microsoft Visual Studio\MyProjects\laba8_2\rus.for(15) : Error: Syntax error, found '(' when expecting one of: :: <IDENTIFIER> dimension(1:40):: c -----------------^ C:\Program Files\Microsoft Visual Studio\MyProjects\laba8_2\rus.for(15) : Error: Syntax error, found '::' when expecting one of: , <END-OF-STATEMENT> ; dimension(1:40):: c -----------------------^ Error executing df.exe. rus.obj - 2 error(s), 0 warning(s) | Подскажите как исправить и если есть, то какие именно логические ошибки |