Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
akreb0102
01.08.2020 08:41 •
Информатика
Написать программу, которая находит произведение элементов массива. размерность массива 10 элементов. ввод элементов осуществлять с клавиатуры.
Показать ответ
Ответ:
ElvirO
02.08.2020 16:02
Const n=10;
var a:array[1..n] of integer;
i:integer; p:real;
begin
for i:=1 to n do read(a[i]);
p:=1;
for i:=1 to n do p:=p*a[i];
writeln('p = ',p);
end.
Пример:
4 6 2 3 8 1 4 7 9 1
p = 290304
0,0
(0 оценок)
Популярные вопросы: Информатика
дуажрлвдаддвдабдв
12.06.2021 23:59
Составьте таблицы истинности для логических выражений : б ) ( а или в ) и ( не а или в ) в ) не ( а и в или с ) заранее !...
knowyourway54
12.06.2021 23:59
Какие из предложенных множеств являются конечными? 1)однозначные числа 2)нечетные числа 3)кол-во углов в треугольнике 4)натуральные числа...
kravchenkomiss
19.01.2023 09:09
1. В чем заключается назначение семейной функции электронного правительства? 2. В чем заключается предназначение риэлторской функции электронного правительства?3. В чем заключается...
aiiiiiidana
24.12.2020 16:54
написать программу на языке Си Составить процедуру, позволяющую определить позицию первого вхождения в заданную строку какого-либо символа из второй заданной строки. Результатом работы...
pety1234
01.06.2022 12:22
Задали написать про телефон краткое сообщение(типо кто его создал,когда,зачем ляля),я не знаю что писать вообще...
Petya109
21.06.2021 06:41
В цилиндре под поршнем охлаждают газ при постоянном давлении от 375 до 300 К. Каким стает объём газа, если в начальном состоянии он был равен 5 л?...
rfrfirb2016oy0uz3
21.06.2021 06:41
Медная платина при температуре 20℃ имеет длину 30 см. Чему равна её длина при –20℃? Температурный коэффициент линейного расширения меди 17*10-6 град-1....
Katya1065
21.06.2021 06:41
Давление воздуха в шинах велосипеда при температуре 30℃ равно 1,8*105Па. Каким станет давление воздуха при температуре 40℃?...
danilnikitin624
21.06.2021 06:41
На рисунке 19 изображена биметаллическая пластина Б, включённая в электрическую цепь, состоящую из источника тока И, лампочки Л и соединительных...
Ilka1k
21.06.2021 06:41
Во сколько раз увеличится давление газа в электрической лампочки, если после её включения температура газа повысилась от 20 до 300℃?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..n] of integer;
i:integer; p:real;
begin
for i:=1 to n do read(a[i]);
p:=1;
for i:=1 to n do p:=p*a[i];
writeln('p = ',p);
end.
Пример:
4 6 2 3 8 1 4 7 9 1
p = 290304