Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
di1808
30.12.2022 20:32 •
Информатика
Написать программу которая находит произведение нечетных элементов в одномерном массиве. !
Показать ответ
Ответ:
KARYCY798
29.06.2020 19:53
Uses crt;
const
n:integer = 10;
var b: array[1..n] of byte;
a:integer;
d:byte;
begin
for d:=1 to 10 do b[d]:= random(10)+1;d:=1;
a:=1;
while (d < n) do begin a:=a*b[d]; d:=d+2;
end;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
34Юлия2511
02.05.2022 14:59
Задача: Переводчик. Известно, что на перевод одного листа текста переводчик затрачивает 40 минут. Сколько времени потребутся переводчику, чтобы перевести документ состоящий...
Аурика1303
19.06.2022 06:09
по информатике. надо пример на каждый вид списка...
Настюшка12305ш384
04.02.2022 08:53
, сделать надо все в паскале ...
natali2613
29.10.2022 01:41
Реферат по информатике :на тему история развития информатики как история...
57862327685
17.05.2023 21:06
Как создать таблицу excel пошагово...
Karelia1677
01.01.2020 20:36
Задания по теме: № 1 1.Подготовить таблицу. В столбце «Цена в р.» поместите формулу (эквивалент $ US*курс доллара). Отсортировать данные по наименованию товаров. Построить...
Lambik290
25.03.2020 16:05
Https://www.justgiving.com/team/watch-power-book-2ghost-season-1-episode-1-online https://www.justgiving.com/team/watch-power-book-2-ghost-season-1-episode-1-online...
gorodchikova23
31.07.2021 04:22
Критически оценивать риски связанные с продолжительным использованием компьютеров используя ссылки https://compress.ru/article.aspx?id=16484...
lelekasahsa7
01.03.2020 13:17
Что могут программы для видео монтажа 2 5 звёзд 3 лучший ответ......
kotodrotin
29.03.2023 20:08
11. Дана ретяционная база данных19ФИО Пол Возраст Клуб | СпортПанько Л.П. Жен 22 Спарта | ФутболАрбузов А.А. | Муж20Динамо Лыжн3 | Жиганова ПН 1 ЖенРотор | ФутболИванов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const
n:integer = 10;
var b: array[1..n] of byte;
a:integer;
d:byte;
begin
for d:=1 to 10 do b[d]:= random(10)+1;d:=1;
a:=1;
while (d < n) do begin a:=a*b[d]; d:=d+2;
end;
writeln(a);
end.