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

disel
1
2
3
4
5
6
7
8
9
10
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

Похожие записи/страницы: