В массиве А(n) найти индексы нулевых, а также минимального и максимального элементов. Определить разницу между минимальным и максимальным элементами
Категория: Basic
2011-10-24 14:01:22
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
автор: кот Бегемот
Поделиться: