Найти максимальный и минимальный элемент массива
Категория: Basic
2011-09-13 16:43:21
Дана последовательность целых чисел. Найти максимальный и минимальный элемент массива
code: #basic
INPUT "n"; n DIM a(n) FOR i = 1 TO n INPUT a(i) NEXT FOR i = 1 TO n PRINT a(i); NEXT max = a(1) min = a(1) FOR i = 2 TO n IF a(i) > max THEN max = a(i) IF a(i) < min THEN min = a(i) NEXT PRINT "max:"; max PRINT "min:"; min
Поделиться: