Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sasapanskov
09.09.2020 11:05 •
Информатика
Найти произведение элементов массива, имеющих нечетное значение.
Показать ответ
Ответ:
katkuatova
25.08.2020 10:53
Var a: array [1..10] of integer;
k, i ,n: integer;
begin
k:=1;
n:=10;
for i:=1 to n do
readln(a[i]); //ручной ввод
for i:=1 to n do
if i mod 2 = 1 then
k:=k*a[i];
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ILYA3421
30.12.2022 17:19
Проанализируйте результаты использования пред- метного указателя и ссылок при оформлении текстовых документов (обмен мнениями). Предметный указатель Таблица ссылок...
ashatsejtenov
11.02.2023 05:17
Изобразите блок схем для квадратного уравнения. , !...
Ķрičтina
05.07.2020 18:38
делайте в данном EXCEL...
avritsevich0116
20.01.2022 08:31
Зная сюжет оперы Эдип , представьте себе элементы сценографии (декорации, костюмы) и зарисуйте какую-нибудь сцену из оперы. Охарактеризуйте музыку эпизода, который произвёл...
Фариза04
20.01.2022 08:31
Why do you think people love going abroad so much? What country or city would you like to visit best of all? Why? Would you like to live abroad?...
DanilVOLK228
27.09.2022 18:24
Сумативка work with your partner and tell him/her about the neighborhood you live in. You have 1 minute to prepare and 2-3 minutes to talk...
lycena
27.09.2022 18:24
Из двух математиков и 5 экономистов составили комиссию в составе 3 человек. Сколькими может быть составлена комиссия, если в нее должен входить хотя бы один математик?...
anastasiya11лет
14.06.2021 18:31
Произведение Платонова Котлован Как в поведении Насти отразилась общественная атмосфера времени?...
ЛесяКисс
16.02.2020 23:33
Температура тірі организмдер үшін қажет пе?...
minnegulovdamir
26.11.2022 09:07
Эссе на тему социальная несправедливость в литературе XIX века...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k, i ,n: integer;
begin
k:=1;
n:=10;
for i:=1 to n do
readln(a[i]); //ручной ввод
for i:=1 to n do
if i mod 2 = 1 then
k:=k*a[i];
writeln(k);
end.