golll
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору помогите разобраться по задаче фортран! Для каждой строки матрицы найти минимальный элемент, а затем среди найденных найти максимальный. написал. Но ищет минимум по матрице а не по строкам. ПОМОГИТЕ!!! dimension A(5,8),B(5) data ((A(i,j),j=1,8),i=1,5)/-2,7,-3,3,-3,5,1,0,0,9,0,-4,-7,7,0,1,2,1,1,-8,1,7,8,-9,3,7,-9,12,-2,-5,1,4,5,8,1,2,6,-4,-4,2/ min=A(1,1) max=B(1) do i=1,5 if(A(i,j).lt.min) then min=A(i,j) end if end do do i=1,5 if (min.gt.max) then max=B(i) end if end do print *,'min',min print *,max,max end |