
Для массива из 10 элементов (задан случайным образом на отрезке от -10 до 10) найти сумму
отрицательных по значению элементов, стоящих на нечетных местах. ( Quick basic)

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

RANDOMIZE TIMER
DIM a(10)
FOR i=1 TO 10
a(i) = INT(RND * 21) - 10
NEXT i
s=0
FOR i=1 TO 10 STEP 2
IF a(i)<0 THEN s=s+a(i)
NEXT i
PRINT s
END



Для нахождения суммы отрицательных по значению элементов, стоящих на нечетных местах в массиве из 10 элементов, заданных случайным образом на отрезке от -10 до 10, можно использовать следующий алгоритм:
1. Создайте массив из 10 элементов, заполненных случайными числами от -10 до 10. 2. Инициализируйте переменную `sum` с нулевым значением. Она будет использоваться для хранения суммы отрицательных элементов. 3. Пройдитесь по массиву и проверьте каждый элемент на нечетность и отрицательность. 4. Если элемент является отрицательным и стоит на нечетной позиции, добавьте его значение к переменной `sum`. 5. Выведите значение переменной `sum`.
Пример кода на языке Quick basic:
```quickbasic DIM a(10) sum = 0
FOR i = 1 TO 10 a(i) = INT(RND * 21) - 10 IF i MOD 2 <> 0 AND a(i) < 0 THEN sum = sum + a(i) END IF NEXT i
PRINT "Сумма отрицательных элементов на нечетных позициях: "; sum ```
Примечание: В данном примере используется функция `RND`, которая возвращает случайное число от 0 до 1. Чтобы получить случайное число в заданном диапазоне, мы умножаем результат на 21 и вычитаем 10.
Источники: - [[8]](https://www.rgups.ru/site/assets/files/120582/ignat_eva_o.v._algoritmizatciia_i_programmirovanie._dlia_vyp._lab._rab._.pdf): Пример кода на языке Quick basic. -: Пример заполнения массива случайными числами.


Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili