Question

Найти максимальный элемент одномерного массива, содержащего
А) 10 элементов;
Б) n элементов (число элементов массива вводится с клавиатуры) (в Qbasic)

Answer 1

Только программы (без примеров):
А)
CLS
DIM a(1 TO 10) AS INTEGER
PRINT "Введите 10 чисел"
FOR i = 1 TO 10
   INPUT a(i)
NEXT i
max = a(1)
FOR i = 2 TO 10
   IF a(i) > max THEN max = a(i)
NEXT i
PRINT "max = ";max
END

Б)
CLS
INPUT "Введите количество элементов массива"; n
DIM a(n)
FOR i = 1 TO n
INPUT "Введите значение элемента: "; a(i)
NEXT i
max = a(1)
FOR i = 2 TO n
   IF a(i) > max THEN max = a(i)
NEXT i
PRINT "max = ";max
END