1 2 3 4 5 6 7 8 9 10 11 12 13 14 | INPUT "vvedite kol-vo elementov ", nDIM b(n)RANDOMIZE TIMERPRINT "massiv"FOR i = 1 TO n b(i) = INT(RND * 20) PRINT b(i);NEXTPRINTnmax = 1FOR i = 1 TO n IF b(i) > b(nmax) THEN nmax = iNEXTPRINT "maximalnyj element="; b(nmax); " ego nomer="; nmax |
Тестирование выполнено в программе QB64 ( Скачать )