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

225

239

Посмотреть ответы 2

Ответы на вопрос:

Sasho2325

Информатика

4,6(55 оценок)

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