Дан массив U1,…,U15. В массиве есть 2 одинаковых Umin. Определите их номера— QBasic(Бейсик)

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 ( Скачать )

Leave a Comment