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 |
