Аналогично массив y, z с другой размерностью
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | n = 8DIM x(n, n)FOR i = 1 TO n FOR j = 1 TO n INPUT x(i, j) NEXTNEXTFOR i = 1 TO n min = x(i, 1): max = x(i, 1): jmin = 1: jmax = 1 FOR j = 2 TO n IF x(i, j) > max THEN max = x(i, j): jmax = j IF x(i, j) < min THEN min = x(i, j): jmin = j NEXT j PRINT "Maksim element stroki #"; i; "="; max; " ego koordinati:("; i; ","; jmax; ")" PRINT "Minim element stroki #"; i; "="; min; " ego koordinati:("; i; ","; jmin; ")"NEXT i |
Тестирование выполнено в программе QB64 ( Скачать )