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

Показать ответ

Ответ:

voytyukk

14.02.2023 02:22

Информатика для меня как маленький лучик который даёт и свет и знания.

В Информатике я могу научиться пользоваться компьютером и может быть я в будущем стану програмистом. Щас великая роль информатики развития общества,веть если нет информации значит нет и разговора.Щас мир быстро меняется мы не знаем что может случится через два-три года вдруг мы успеем сделать машину времени или телевизор который может скручиваться как ковёр.Может быть то что мы придумаем не решит все наши проблемы,но решит что будем делать в дальнейшем будущем.

Информация это золото в недрах камнях,чтобы овладеть полностью информации нужно века чтоб докапать всё золото.

0,0(0 оценок)

Ответ: