Найти минимальное число среди положительных и максимальное число среди отрицательных - QBasic

Формулировка задачи:

Дана некоторая последовательность из целых чисел оканчивающихся нулем. Найти минимальное число среди положительных и максимальное число среди отрицательных. На Бейсике Пожалуйста)

Решение задачи: «Найти минимальное число среди положительных и максимальное число среди отрицательных»

Листинг программы

WHILE t <> 0
  INPUT "", t
  IF t < min AND t > 0 THEN min = t
  IF t > max AND t < 0 THEN max = t
WEND

Объяснение кода листинга программы

WHILE t <> 0 — единица цикла, которая будет выполняться до тех пор, пока значение переменной t не станет равным нулю
INPUT ``, t — ввод значения переменной t с помощью функции INPUT, при этом пустая строка после функции INPUT означает, что ввод значения будет осуществляться с клавиатуры, а не с помощью числа, введенного в предыдущем цикле
IF t < min AND t > 0 THEN min = t — проверка, является ли значение переменной t положительным числом и меньше текущего минимального значения min. Если это так, то значение переменной t присваивается переменной min
IF t > max AND t < 0 THEN max = t — проверка, является ли значение переменной t отрицательным числом и больше текущего максимального значения max. Если это так, то значение переменной t присваивается переменной max
WEND — завершение цикла WHILE