1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | INPUT "vvedite kolichestvo elementov N ", NDIM u(N)FOR i = 1 TO N INPUT "vvedite element ", u(i)NEXTPRINT "massiv"FOR i = 1 TO N PRINT u(i);NEXTPRINTnmin = 1FOR i = 1 TO N IF u(i) < u(nmin) THEN nmin = iNEXTPRINT "nomera minimalnyh elementov:"; nmin;FOR i = 1 TO N IF u(i) = u(nmin) AND i <> nmin THEN PRINT iNEXT |
Тестирование выполнено в программе QB64 ( Скачать )