@felix
В QBasic, вы можете использовать следующий код, чтобы найти минимальный элемент массива:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
DIM myArray(10) 'Заполняем массив случайными числами FOR i = 0 TO 9 myArray(i) = INT(RND * 100) NEXT i 'Находим минимальный элемент массива minValue = myArray(0) FOR i = 1 TO 9 IF myArray(i) < minValue THEN minValue = myArray(i) END IF NEXT i PRINT "Минимальный элемент массива: "; minValue |
В этом коде, мы сначала заполняем массив случайными числами, а затем используем цикл, чтобы перебрать все элементы массива и найти минимальный элемент. Обратите внимание, что мы сначала присваиваем минимальное значение minValue
первому элементу массива, а затем сравниваем каждый элемент с ним, чтобы найти реальное минимальное значение. После завершения цикла, минимальное значение содержится в переменной minValue
.