C Решить задачу определения минимального элемента в матрице, размером (3*4).
C Значения элементов исходной матрицы должны вводиться с клавиатуры.
C Обеспечить контрольный вывод введенной матрицы,
C     а так же вывод индексов и значения минимального элемента в матрице.
      PROGRAM zad

      INTEGER maxi, maxj, lasti, lastj
      PARAMETER (maxi = 3, maxj = 4)
      REAL m(maxi, maxj), lastmin

      PRINT *, "Введите матрицу: (", maxi, ", ", maxj, ")"
      READ (*, *) ((m(i,j), j=1,maxj), i=1,maxi)
      PRINT *, "Вы ввели матрицу:"
      WRITE (*, 1000) ((m(i,j), j=1,maxj), i=1,maxi)
 1000 FORMAT (<maxj>F10.3)

C     инициализируем минимальный элемент первым из матрицы
      lasti = 1
      lastj = 1
      lastmin = m(lasti,lastj)
C     ищим минимальный элемент по всей матрице
      DO 10 i=1,maxi
         DO 20 j=1,maxj
C     текущий элемент меньше минимального - запоминаем текущий вместо минимального
            IF (m(i,j) .LT. lastmin) THEN
               lastmin = m(i,j)
               lasti = i
               lastj = j
       PRINT "(A F10.3 I3 I3)", 'Новый минимум = ',
     . lastmin, lasti, lastj
            END IF
 20      CONTINUE
 10   CONTINUE

      PRINT '(A $)', 'Минимальный элемент = '
      PRINT '(F10.3 $)', lastmin
      PRINT '(1X A $)', 'его координаты: ('
      PRINT '(I3 A I3 A)', lasti, ",", lastj, ")"

      END

seb@seb:~/progs/test/fortran77$ g77 ./zadacha1.f
seb@seb:~/progs/test/fortran77$ ./a.out
 Введите матрицу: ( 3,  4)
1 2 3 4
5 6 -8 -9
0 1.1 -8.1 0
 Вы ввели матрицу:
     1.000     2.000     3.000     4.000
     5.000     6.000    -8.000    -9.000
     0.000     1.100    -8.100     0.000
Новый минимум =     -8.000  2  3
Новый минимум =     -9.000  2  4
Минимальный элемент =     -9.000 его координаты: (  2,  4)