Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
tulenchik26
09.06.2021 20:34 •
Информатика
Нужна с qbasic. сможет кто написать програму ? дано 40 чисел. подсчитать количество элементов, не равное нулю.
Показать ответ
Ответ:
BabaShyra
27.09.2020 07:21
'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
0,0
(0 оценок)
Популярные вопросы: Информатика
MoonRiad
16.05.2021 16:14
Для регистрации на сайте некоторой страны пользователю требуется придумать пароль. длина пароля — ровно 7 символов. в качестве символов используются десятичные...
svetburtseva20
16.05.2021 16:14
Определение: стандарт на представление и преобразование передаваемой по сети информации - букв)...
девочкаксюша
07.05.2020 17:34
Подсчитать в килобайтах количество информации в тексте, если текст состоит из 400 символов, а мощность используемого алфавита - 64 символа....
SofyaA3
07.05.2020 17:34
Составить программу на языке програмирования паскаль в группе 7 человек рост вводится с клавы выводит на экран самого ниского...
Алахахбар228
30.10.2020 21:08
Сикт скорость передачи информации 1200 бит/с. за сколько времени данный модем передаст информацию, состоящую из 3070 бит?...
Владимир328
09.09.2021 13:34
логический оператор or это а) логиче. деление б) логиче. сложение в) логиче. умножение г) логиче. отрицание ...
ник5032
01.10.2021 21:41
Выберите верные условия (12+4=4+12) и (42=21+21)(5-2 3) или (6-3 2)(2 12) или (5 43)45-3 44-3...
саня45рг
19.01.2020 04:32
Дайте определения и приведите примеры, что такое а)Ткань Клетка Орган...
Lololiplolpjvfhsbf
01.07.2022 17:01
Русский язык 7 класс Давидюк Стативка Упр.88 ст.76 Задания Выпишите из текста глаголы. Определите вид, время, переходность, возвратнос...
RageTeenage
01.07.2022 17:01
решить уравнение(7x+3)÷4=6...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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