1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | LS N = 15 PRINT "Massiv: "; DIM M(N) FOR I = 1 TO N M(I) = INT(RND * 100) PRINT M(I) ; NEXT I MIN=M(1) FOR I = 2 TO N IF MIN > M(I) THEN MIN=M(I) NEXT I PRINT PRINT "_________" PRINT "Minimum = "; MIN |
Тестирование выполнено в программе QB64 ( Скачать )