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

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
   IF a(i) = 0 THEN IsNull = 1
   i = i + 1
LOOP
IF IsNull = 1 THEN
   PRINT "Есть 0"
ELSE
   PRINT "Нет 0"
END IF
END

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.