Сделать блок схему для кода fortran program testtt implicit none integer : : a(8,8), b(8,8), i, j, minimum, n, ind1, ind2 logical : : l data a/8,7,6,5,3,2,1,0, & 8,7,6,5,3,6,1,0, & 8,7,6,5,3,2,1,-3,& 8,7,6,5,3,2,1,0, & 8,7,6,5,3,2,1,0, & 8,7,6,5,1,2,1,0, & 2,7,6,5,3,2,1,0, & 8,7,6,5,3,2,1,0/ ! выясним, ли элементы по главаной диагонали do i = 1, 7 if (a(i,i) > a(i+1, i+1)) then l=.true. else l=.false. exit end if end do ! если , то найдем минимальный элемент под диагнональю и его индексы if (l) then minimum = a(2,1) n=2 do j=1,7 do i=n, 8 if (a(i,j) < minimum) then minimum = a(i,j) ind1 = i ind2 = j end if end do n = n + 1 end do print 2, "минимальный элемент = ", minimum print 2, "индексы минимального элемента = ", ind1, ind2 print*,print 1, ((a(i,j),j=1,8),i=1,8) ! если не , то поменяем столбцы со строками else b=a do i=1,8 a(i,: ) = b(: ,i) end do print 1, ((a(i,j),j=1,8),i=1,8) end if 1 format (8i5) 2 format (a, 5i4) end

maryvysotinap08vi8    3   05.10.2019 07:00    3