Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
mrudaa717
27.08.2020 02:06 •
Информатика
Написать программу, которая находит произведение элементов массива. размерность массива 10 элементов. ввод элементов осуществлять с клавиатуры.
Показать ответ
Ответ:
блабла70
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 оценок)
Популярные вопросы: Информатика
qqvikaglazynova
02.02.2023 14:57
Сколько раз встречается цифра 2 в записи первых 10 чисел начиная с 1 в системе счисления с основанием 4...
Елизавета99929
28.04.2020 16:04
Сор по информатике за раздел как разрабатываются компьютерные игры 1 вариант...
ЛизаХлеб
28.04.2020 16:04
ответьте на вопросы 1)какие виды дизайна пользовательского интерфейса вы знаете? 2)что характеризует качество интерфейса? 3)какие новые особенности появились при разработке...
АннаК78
28.04.2020 16:04
Var i, a, s: integer; begin s: =0 for i: = 1 to 5 do begin readln(a); if (a mod 6= 0) and (a mod 10=4) then s: = s+ a; end; writeln(s) end. на выходе 14 24 144 22 12 что...
Bredovik
02.06.2020 17:38
Умоляю пусть видиопамять компьютера имеет объём 4700кбайт размер графической сетки 1440х900 сколько целых страниц экрана одновременно разместится в видиопамяти при палитре...
danilpravdin
20.08.2020 22:33
Дано два числа типа integer. найти абсолютное значение разности их квадратов. язык паскаль...
SVINKAPIPA
09.01.2023 11:07
Нужно составить 5 предложений с глаголом can,и 5 предложений с глаголом mast...
Сёма1992
09.01.2023 11:07
Могут быть в предложение только подлежащим, могут быть в предложение только дополнением, могут быть в предложение и подлежащем, и дополнением к себе, ты,он, что, вы, кое-кто,...
Ruslanchik111
09.01.2023 11:07
Треугольник нвс перпендикулярен треугольнику авс. треугольник нвс пересекает треугольник авс =вс. треугольник нвс -равносторонний. треугольник авс -прямоугольный. вс=4√3....
xandias
09.01.2023 11:07
Какие военные новшества появились в македонской армии?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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