INPUT "vvedite kolichestvo elementov N ", N
DIM u(N)
FOR i = 1 TO N
INPUT "vvedite element ", u(i)
NEXT
PRINT "massiv"
FOR i = 1 TO N
PRINT u(i);
NEXT
PRINT
nmin = 1
FOR i = 1 TO N
IF u(i) < u(nmin) THEN nmin = i
NEXT
PRINT "nomera minimalnyh elementov:"; nmin;
FOR i = 1 TO N
IF u(i) = u(nmin) AND i <> nmin THEN PRINT i
NEXT
Тестирование выполнено в программе QB64 ( Скачать )