М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
armodno
armodno
01.04.2022 01:16 •  Информатика

Задан массив m(n).определить произведение нечётных элементов(basic)

👇
Ответ:
sanyashoydokov
sanyashoydokov
01.04.2022

Dim Massiv(9) as Integer ' Объявляем массив из 9 элементов

Dim Composition as Integer ' Результат произведения нечетных элементов массива

Dim index as Integer ' Индекс для доступа к элементам массива

' Заполняем массив случайными числами

For index = 0 to 9

   Massiv(index) = Rnd() * 5

   print Massiv(index) ' Вывод массива

Next

' Инициализируем переменную Composition

Composition = 1

For index = 0 to 9

   If Massiv(index) Mod 2 <> 0 Then  ' Если элемент не четный то выполнить произведение

        Composition = Composition * Massiv(index)

   End if

Next

print Composition ' Результат произведения

4,7(42 оценок)
Открыть все ответы
Ответ:
9000Кира0009
9000Кира0009
01.04.2022

#include <iostream>  

#include <string>  

#include <conio.h>

 

   #define ESC 27

 

using namespace std;

 

int main() {

   char ch;

   int sum = 0;

   do {

       ch = _getch();

       if (ch == ESC) {

           cout << "Output of the program:\n" << sum;

           putchar('\n');

       } else {

           cout << ch;

           sum += (int)ch;

           putchar('\n');

       }

   } while (ch != ESC);

   system("pause");

   return 0;

}

Объяснение:

4,8(96 оценок)
Ответ:
linaserdyuk13
linaserdyuk13
01.04.2022
10 CLS
20 REM Определяет количество положительных и отрицательных элементов массива
30 INPUT "Введите количество элементов в массиве N="; N
40 DIM A(N)
50 REM Ввод элементов массива
60 FOR I = 1 TO N
70 PRINT "Номер"; I;
80 INPUT "Значение элемента массива ="; A(I)
90 NEXT I
110 REM Нахождение количества положительных и отрицательных элементов массива
120 K = 0: S = 0
130 FOR I = 1 TO N
140 IF A(I) > 0 THEN K = K + 1
150 IF A(I) < 0 THEN S = S + 1
160 NEXT I
170 REM Вывод результатов
180 PRINT "Количество положительных элементов ="; K
190 PRINT "Количество отрицательных элементов ="; S
200 END

В таком виде программа была выполнена в среде LB Booster - бесплатной версии со входным языком Liberty BASIC. Сама же Liberty BASIC является коммерческим продуктом, в связи с чем попробовать выполнить эту программу именно в этой среде не представляется возможным.

Водномерном массиве из n чисел вывести на экран количество положительных и отрицательных элементов.
4,8(96 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ