Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
DianaSi12
09.06.2022 08:59 •
Информатика
Найти произведение элементов массива, имеющих нечетное значение.
Показать ответ
Ответ:
ксе16
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 оценок)
Популярные вопросы: Информатика
Skillet121516
10.01.2020 16:00
(вариантов ответа нет)Объясните как делать✨...
PatrickKKK
27.05.2021 07:24
Придумать и оформить на листе бумаги 3-5 заданий для черного ящика...
nikusha10
10.01.2022 13:00
Интерполяционным методом Лагранжа построить график заданной функции используя модуль GraphABC....
Vitiaaaa
04.05.2020 18:22
У исполнителя Бета две команды, которым присвоены номера: 1. прибавь b 2. умножь на 3(b - неизвестное натуральное число) Выполняя первую из них, Бета увеличивает число на...
sasipomidorp01sct
09.04.2022 20:49
Как переводить из десятичной системы счислений в двоичную переведите примеры 137 10-ричных двуричных 43- 96- 6- 1257-...
danilponomary
09.04.2022 20:49
Объясните! умоляю. 1)сколько секунд потребуется модему, сообщения со скоростью 14400 бит/с, чтобы передать цветное растровое изображение размером 640 на 480 пикселей, при...
Supernix
23.02.2020 18:26
Программа, предназначенная для создания иллюстраций и других изображений а) текстовый редактор в) wordpad с) microsoft word d) графический редактор 8. каким цветом будет залито...
Stesha678975425789
20.06.2020 13:56
Даны два целых числа a и b (a b). найти произведение всех целых чисел от a до b включительно....
prosto5297
20.06.2020 13:56
Внекотором каталоге хранится файл .tхt. в этом каталоге создали подкаталог и переместили в него файл .tхt. после этого полное имя файла стало d: .txt каково полное имя каталога,...
KolbasaBatonSir
09.03.2020 23:11
Придумайте свои получения случайных чисел....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.