Лабораторный практикум по информатике. Гурьяшова Р.Н - 85 стр.

   7. Листинг Fortran-программы «Анализ итогов сессии»
   Примечание. Матрица задаётся в файле с именем FORT.1!
                           Программный код
PROGRAM SESSION
! Объявление типа данных
INTEGER :: I,J,K,A(1:5,1:4)
REAL :: S,SR,SMIN = 100
! Ввод матрицы по строкам из файла < FORT.1 >
READ(1,*)((A(I,J),J = 1,4),I = 1,5)
WRITE(*,*)' ОЦЕНКИ      SR '
DO I = 1,5 ! Внешний цикл по I (по строкам)
    S = 0.
    DO J = 1,4 ! Внутренний цикл по J (по столбцам)
      S = S + A(I,J)
    END DO ! Конец цикла по J
    SR = S/4
    ! Вывод строки матрицы и балла SR
    WRITE(*,3)(A(I,J),J = 1,4),SR
    3 FORMAT(2X,4I4,F4.2)
    ! Вычисление балла SMIN и номера K
    IF(SR < SMIN)THEN ! Если SR < SMIN
      SMIN = SR; K = I
    END IF
END DO ! Конец цикла по I
! Вывод значений SMIN и K
WRITE(*,"(A,F4.2,A,I1)")' SMIN = ',SMIN,' K = ',K
END
   Результаты работы представлены в макете печати (п.5, стр.82).
                    Ла б о ра т о рна я ра б о т а 1 7
          Формирование одномерного массива
           Тема. Двумерный и одномерный массивы
   Индивидуальные задания – табл.3.17 (стр.123)
                              1. Задание
    Составить программу решения следующей задачи.
    Дана матрица A(3x3). Сформировать одномерный массив
(B1,..., B3) в соответствии с условием: каждый элемент массива
определяется разностью между элементом главной диагонали
и количеством отрицательных элементов строки. Найти про-
изведение положительных элементов массива B.
                                   85