Помогите записать в qbasic.Ввести 10 чисел. Проверить, есть ли среди введенных ноль. Если...

Question

Помогите записать в qbasic.
Ввести
10 чисел. Проверить, есть ли среди введенных ноль. Если есть, вывести на экран
«Есть 0», если нет – «Нет 0».(10 чисел имеется в виду любых десять)

Answer 1

CONST n = 10
DIM a(1 TO n) AS INTEGER
DIM i AS INTEGER, IsNull AS INTEGER
PRINT "Вводите числа"
FOR i = 1 TO n
   INPUT a(i)
NEXT i
i = 1
IsNull = 0
DO WHILE i <= n<br>   IF a(i) = 0 THEN IsNull = 1
   i = i + 1
LOOP
IF IsNull = 1 THEN
   PRINT "Есть 0"
ELSE
   PRINT "Нет 0"
END IF
END