Вводиться последовательность не нулевых чисел завершаемая нулем.Определить максимальное отрицательное число в данной последовательности

Категория: Basic
2011-09-16 16:36:33
code: #basic
CLS
max = -9999
DO
        INPUT n
        IF n = 0 THEN EXIT DO
        IF n < 0 THEN
                IF n > max THEN max = n
        END IF
LOOP
PRINT max
Поделиться:

Похожие статьи:

теги: студенты, последовательность, максимальное число, qbasic, отрицательное число