1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | CLSRANDOMIZE TIMERn = 2: m = 3DIM a(n, m)FOR i = 1 TO n: FOR j = 1 TO m a(i, j) = FIX(RND * 100)NEXT: NEXTmax = a(1, 1)FOR i = 1 TO n: FOR j = 1 TO m IF a(i, j) > max THEN max = a(i, j): ki = i: kj = jNEXT: NEXTFOR i = 1 TO n: FOR j = 1 TO m PRINT a(i, j);NEXT: PRINT: NEXTPRINT "max ="; max, "a("; ki; ","; kj; ")" |
Тестирование выполнено в программе QB64 ( Скачать )