1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | INPUT n DIM a(n, n) FOR i = 1 TO n FOR j = 1 TO n PRINT "element"; i; " "; j INPUT a(i, j) NEXT NEXT min = a( 1 , 1 ): imin = 1 : jmin = 1 FOR i = 1 TO n FOR j = 1 TO n IF a(i, j) < min THEN min = a(i, j): imin = i: jmin = j NEXT j NEXT i PRINT "Minimalniy element="; min; "ego koordinati: ("; imin; ","; jmin; ")" |
Результат работы программы

Тестирование выполнено в программе QB64 ( Скачать )