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

206

282

Посмотреть ответы 1

Ответы на вопрос:

denis14882

Информатика

4,4(53 оценок)

Запускаем функцию f(), глобально меняется переменная b на 2.

Запускаем функцию g(), глобально меняется переменная a на 70.

Запускаем функцию f(), глобально меняется переменная b на 70.

Программа выведет: 707057

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.