Question

Нужна помощь с Qbasic. Сможет кто написать програму плиз? срочно Дано 40 чисел. Подсчитать количество элементов, не равное нулю.

Answer 1

'Microsoft QBASIC 1.0

DIM a(1 TO 40) AS INTEGER
CLS
k = 0
RANDOMIZE TIMER
FOR i = 1 TO 40
  a(i) = INT(10 * RND) - 5
  PRINT a(i);
  IF a(i) = 0 THEN k = k + 1
NEXT i
PRINT
PRINT "Количество нулей="; k

Тестовое решение
-2 -3 -1 -1  1  1  2  1 -5 -4 -3  4 -1 -3  1 -1  2 -4  2  3  2 -5 -2  0 -1  0
 0 -3  2 -4 -5  1  2 -3 -5 -1  2  0  2  4
Количество нулей= 4

Answer 2

Конечно, я могу помочь вам с написанием программы на QBasic. Вот пример программы, которая подсчитывает количество элементов, не равных нулю, в заданном списке из 40 чисел:

CLS
DIM numbers(40) AS INTEGER
count = 0

FOR i = 1 TO 40
    INPUT "Введите число: ", numbers(i)
    IF numbers(i) <> 0 THEN
        count = count + 1
    END IF
NEXT i

PRINT "Количество элементов, не равных нулю: "; count
END

В этой программе мы используем массив `numbers` для хранения 40 чисел. Затем мы используем цикл `FOR` для заполнения массива числами, введенными пользователем. Если число не равно нулю, мы увеличиваем счетчик `count` на единицу. В конце программы выводится количество элементов, не равных нулю.

Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.