В двумерном массиве 10х10 самозаполняюшемся случайными числами найти минимальный элемент и вывести его и его координаты
Категория: Basic
2011-09-19 16:48:33
code: #basic
CLS RANDOMIZE TIMER DIM a(10, 10) mini = 1 minj = 1 FOR i = 1 TO 10 FOR j = 1 TO 10 a(i, j) = INT(RND * 89) + 10 IF a(i, j) < a(mini, minj) THEN mini = i: minj = j PRINT a(i, j); NEXT j: PRINT NEXT i: PRINT PRINT "Координаты минимального элемента:"; mini;","; minj
Поделиться: