Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Behheheh
17.07.2022 13:15 •
Информатика
Дан массив, состоящий из 10 элементов, найти произведение элементов массива
Показать ответ
Ответ:
ImperialDragonYT
10.09.2020 08:53
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
массив: РЯД 10 ИЗ ЦЕЛ;
сч, произв: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(массив[сч]) - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 100));
Вывод.ЧЦел("%d ", произв, 0, 0, 0)
КОН;
произв := 1;
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
произв := произв * массив[сч]
КОН;
Вывод.ЧЦел("^Произведение = %d.", произв, 0, 0, 0)
КОН Задание.
0,0
(0 оценок)
Популярные вопросы: Информатика
VikaSh86
13.12.2020 16:03
Подготовить сообщение на тему компьютеры вокруг нас . нарисовать таблицу в тетради новосибирск-составной объект...
fhlurx
30.08.2020 04:48
Знайти суму всіх послідовних цілих парних натуральних чисел від 2 до N. (Наприклад: якщо ввести N=10, то S:=2+4+6+8+10 , якщо ввести N=9, то S:=2+4+6+8).(лазарус)...
JetMinegrifer
13.04.2020 20:20
1. Определите значение переменной P после выполнения следующего фрагмента программы: 1 2 3 4 5 P:=2; i:=5; while i = 15 do begin P := P * (i div 5); i := i + 1;...
Елена2028
18.05.2023 23:10
Объясните разницу инструментов 2D- и 3D-программ...
Backlajan89
20.03.2022 20:47
Перевести в двоичную систему число: 1) 28 2) 129 3) 561 4) 1001...
Намиг123
16.09.2022 19:36
Знайти найбільше значення з модулів добутків чисел а і b та с і d. Оформить у вигляді функції... На с...
alexander124131
16.06.2022 10:53
Ребята,кто может в Processing сделать эту штуку!надо придумать собственный орнамент...
tupitsa3
10.09.2022 12:47
Какую информацию хранят растровые форматы графических файлов?1.информацию о цвете каждого пиксель изображения2.информацию о кол-ве пикселей каждого изображения3.информацию...
indirsuleimano
07.11.2022 22:33
2.Опишите элементы таблицы с точки зрения информационной модели. Составьте таблицу соответствия элементов таблицы и элементов информационной модели. 3. Составьте...
Маркус337
13.10.2020 03:08
1.Опишите элементы таблицы с точки зрения информационной модели. Составьте таблицу соответствия элементов таблицы и элементов информационной модели. 2. Составьте...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
массив: РЯД 10 ИЗ ЦЕЛ;
сч, произв: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(массив[сч]) - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 100));
Вывод.ЧЦел("%d ", произв, 0, 0, 0)
КОН;
произв := 1;
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
произв := произв * массив[сч]
КОН;
Вывод.ЧЦел("^Произведение = %d.", произв, 0, 0, 0)
КОН Задание.