tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Программа qbasic. одномерный
Программа qbasic. одномерный массив из 7 элементов (-1,0,-5, -3, 4, 8, 1). определите количество отрицательных чисел массива.
smolinnlive
1 27.06.2019 06:00
0
Ответы
zelenkadi
02.10.2020 12:49
Три.
псевдо код
int n = [массив]
int t =0
for(int i = 0; i < n; ++i){
if (n[i] < 0){
t +=1; //вол-во отрицательных чисел
}
}
ПОКАЗАТЬ ОТВЕТЫ
тошкк
02.10.2020 12:49
CLS
DIM M(100)
DATA -1,0,-5,-3,4,8,1
S = 0
FOR i = 1 TO 7
READ M(i)
IF M(i) < 0 THEN
S = S + 1
END IF
NEXT i
PRINT "S="; S
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Laurka11
15.09.2019 14:40
Написать программу на pascal вычислить сумму квадратов вводимых чисел. числа вводятся, пока не будет нажат ноль....
klimkravcnko
15.09.2019 14:40
По заданному логическому выражению составить логическую схему и построить таблицу истинности: a or not (not b and c)...
milaangel1
15.09.2019 14:40
Информационное сообщение имеет объемом 4 кбайта. сколько в нем символов, если размер алфавита, с которого оно было составлено, равно 16....
idjrglkuahregklha
29.10.2020 11:00
Определите, о каком программном обеспечении идет речь.1) Программное обеспечениеВключает:программы диагностики состоянияКомпьютера, антивирусные средства,• программы для работы...
Kepka229
23.04.2019 17:19
Аязыке паскаль 1)заполните массив а первыми n натуральными числами,начиная с x(ввести x с клавиатуры) в обратном порядке( начиная с конца массива) 2)заполнить массив a первыми...
Jacob888
23.04.2019 17:24
Пятиклассник вася изучает многозначные числа. сегодня он решил рассмотреть суммы цифр числа. оказывается, числа с одинаковыми суммами цифр могут сильно различаться. например, числа...
Анамтасия727
03.12.2020 13:10
Сравните аналоговые и цифровые технологий...
aleks1yus
03.12.2020 13:09
Конус , цилиндра және сфера құру ...
AndroidBot2018
03.12.2020 13:09
Найдите такое минимальное целое число А, чтобы выражение xy A \/ x y \/ 13 ≤ x было истинно при любых неотрицательных x и y....
la23s
27.07.2019 13:50
Какой длины должно быть слово, чтобы в нем можно было выделить часть, имеющую длину n, начиная с r-ого символа?...
Популярные вопросы
Сучасні дослідники географії та їх досягнення...
3
Про Буша старшего хоть что-то, желательно 3 5 7 2. Начало политической карьеры....
1
Определить тип связи в двух текстах и в первом тексте разделить текст на зачин...
1
Дан треугольник ABC продолжение сторон ABC за вершину B отмечены Точки K и M...
1
Вплив штучних магнітних полів на живі організми...
1
В параллелепипеде дано ABCDA1B1C1D1 точка M принадлежит AD Причём AM:MD=1:3...
1
Green Day - Boulevard of Broken Dreams. найти в тексте песни предложения на...
1
За якими ознаками можна порівнювати держ.території???Спробуйте визначити за...
2
ВПРАВИ 1.1. На рисунку 1.8 гображено графік функції = f (x), визначеноїна проміжку...
2
3. Прочитайте отрывок из рассказа «Певцы» И. С. Тур- генева, где описывается...
2
псевдо код
int n = [массив]
int t =0
for(int i = 0; i < n; ++i){
if (n[i] < 0){
t +=1; //вол-во отрицательных чисел
}
}
DIM M(100)
DATA -1,0,-5,-3,4,8,1
S = 0
FOR i = 1 TO 7
READ M(i)
IF M(i) < 0 THEN
S = S + 1
END IF
NEXT i
PRINT "S="; S