Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
meribageee
11.04.2021 23:40 •
Информатика
Дан массив, состоящий из 10 элементов, найти произведение элементов массива
Ответ:
Дианка20043005
10.09.2020 08:53
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
массив: РЯД 10 ИЗ ЦЕЛ;
сч, произв: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(массив[сч]) - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 100));
Вывод.ЧЦел("%d ", произв, 0, 0, 0)
КОН;
произв := 1;
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
произв := произв * массив[сч]
КОН;
Вывод.ЧЦел("^Произведение = %d.", произв, 0, 0, 0)
КОН Задание.
0,0
(0 оценок)
Популярные вопросы: Информатика
Римская1
30.11.2022 16:54
Значение арифмеического выражения 9^12 3^7-27 записано в системе счисления с основанием 3. сколько раз встречается цифра 2...
moskaliov
30.05.2020 19:31
:дан массив из 10 целых чисел,от -20 до 20 . напишите программу,заменяющую первый отрицательный элемент массива нулем. решить!...
Опаснаятётя01
05.07.2022 13:19
Какой объем памяти необходимо выделить под хранение растрового изображения размером 128х128 пикселей, если в палитре изображения 256 цветов...
nastyyanokogloStasya
03.03.2020 02:13
даже если бы мини и базовые блоки были недорогими, почему маловероятно, что вы купили бы их для своего дома? even if minis and mainframes were inexpensive, why is it unlikely...
Natasha183038
26.02.2023 00:42
Как будет правильно? 4•(2 во 2 степени) то-есть (16)- килобайт байт-16384бит-131072 иликилобайт-4байт-4092бит-32736 ? ...
elena090107
01.06.2023 08:19
Какая символика в стихотворений анчар...
Help093646
17.11.2020 11:51
Учиться! _учиться! _учиться! 8 бит кодировкаопределить информационный объем текста ,20 за правильный ответ...
валера200331
07.01.2022 14:20
Ерді намыс өлтіреді, қоянды қамыс өлтіреді. перевод и значение...
ЯУмницаРаЗуМнИцА
07.01.2022 14:20
Запишите роль обеспечения безопасности этих специалистов: 1• инженеры и механики. 2• диспетчеры 3• метеорологи 4• связисты 5• экипаж самолёта (тема: обеспечение личной безопасности...
kublahan
07.01.2022 14:20
Сделать , . i. прочитайте текст. определите тип речи (повествование, описание, рассуждение), доказательства вашего мнения. укажите, как связаны между собой части (абзацы) текста....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
массив: РЯД 10 ИЗ ЦЕЛ;
сч, произв: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(массив[сч]) - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 100));
Вывод.ЧЦел("%d ", произв, 0, 0, 0)
КОН;
произв := 1;
ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
произв := произв * массив[сч]
КОН;
Вывод.ЧЦел("^Произведение = %d.", произв, 0, 0, 0)
КОН Задание.