terminat0r Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: program matrix     implicit none   integer, parameter :: n=4, m=4   integer mi,i, j, ma, minl, maxl   real s(m), r(n,m) / 6.,1.,2.,5.,&        2.,9.,1.,9.,&        5.,6.,3.,6.,&        7.,3.,1.,4./ s=0.0   write (*,"(1x,4f5.2)") ((r(i,j),j=1,m), i=1,n)      do i=1, n      mi=minloc(r(i,:),1)      ma=maxloc(r(i,:),1)      if(mi<ma) then      s(i)=sum(r(i,mi:ma))      else       s(i)=sum(r(i,ma:mi))        end if  end do   write(*,*) (s(i), i=1, m) end program matrix Всего записей: 2084 | Зарегистр. 31-03-2002 | Отправлено: 00:31 15-10-2010 | Исправлено: terminat0r, 01:02 15-10-2010

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы программирования на FORTRAN (ФОРТРАН)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование