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