Qbasic. Определить максимальное значение среди положительных элементов из N введенных.

Question

Qbasic. Определить максимальное значение среди положительных элементов из N введенных.

Answer 1

DIM i AS INTEGER
DIM n AS INTEGER
DIM max AS INTEGER
INPUT "INPUT n", n
max = 0
FOR i = 1 TO n
INPUT "a ?", a
IF a > 0 THEN
IF a > max THEN
max = a
END IF
END IF
NEXT i
PRINT max
END