1 | |3 | -4 | 0 | 2 | -7 | 4 | 0 | |
1 2 3 4 5 6 7 8 9 10 11 12 13 | DIM a(7)DATA 3,-4,0,2,-7,4,0PRINT "massiv"FOR i = 1 TO n READ a(i) PRINT a(i);NEXTPRINTnmin = 1FOR i = 1 TO n IF a(i) < a(nmin) THEN nmin = iNEXTPRINT "minimalnyj element="; a(nmin); "ego nomer="; nmin |
Тестирование выполнено в программе QB64 ( Скачать )