1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | INPUT "Введите количество элементов массива:", n DIM a(n), b(n) FOR i = 1 TO n INPUT "Введите очередной элемент ", a(i) NEXT min = a( 1 ) nmin = 1 max = a( 1 ) nmax = 1 FOR i = 1 TO n IF a(i) < min THEN min = a(i): nmin = i IF a(i) > max THEN max = a(i): nmax = i IF a(i) = 0 THEN k = k + 1 : b(k) = i NEXT IF k = 0 THEN PRINT "Нулевых элементов нет " else print "Номера нулевых элементов ": FOR i = 1 TO k: PRINT b(i): NEXT PRINT "Номер максимального элемента:"; nmax PRINT "Номер минимального элемента:"; nmin PRINT "Разница между max и min="; max - min |