Qbasic. Определить максимальное значение среди положительных элементов из N введенных.
Qbasic. Определить максимальное значение среди положительных элементов из N введенных.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы