Сделать блок схему для кода 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