В массиве А(n) найти индексы нулевых, а также минимального и максимального элементов. Определить разницу между минимальным и максимальным элементами

code: #basic
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

автор: кот Бегемот

Поделиться:

Похожие статьи: