Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Раола
26.05.2023 10:13 •
Информатика
Дан массив из 50 элементов. найти произведение всех элементов.
Показать ответ
Ответ:
Kaska322
07.07.2020 14:05
Var
a: array [1..50] of integer;
l: longint;
begin
for l := 1 to 50 do
begin
a[l] := random(-5, 5);
write(a[l], ' ');
end;
l := 1;
writeln();
foreach k: integer in a do
l *= k;
writeln(l);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Operator404
01.02.2020 06:21
Вычислите площадь треугольника по заданным длинам a b c...
Ovhinoco
14.01.2020 22:56
Определить результаты выполнения команд (без компьютера) 1) writeln(5 div 2+3 mod 2); 2) writeln (trunc(7/3))...
nastyakisa2
15.09.2022 05:44
: написать программу для рисунка начирти схему вправо закрасить в...
dalepidorasp0833z
01.09.2020 22:43
Задачі для самостійного розв язання.. Обчислити суму та добуток парних чисел від 1 до N. Для перевірки накомп ютері не варто вводити числа більші за 19 (результат не поміститип...
18alinochka150
12.09.2021 02:53
Чи можна запрограмувати сцену В...
ТАААААААААААПКИ
28.08.2022 17:17
Во Исполните алгоритм при X=20, y=25.В ответе запишите сначала значение х, затем значение у БЕЗ ПРОБЕЛА.Например, если х=23, y=3, то в ответ записывается число 233....
Vitadem1
12.07.2021 02:51
У результаті повного окиснення метанаміну масою 24,8г. утворився азот об‘ємом (л)...
mfaig
23.11.2022 07:43
Transform the following, using the Present Subjunctive ІІ in e subordinate clauses. 1. If Peter works hard, he will pass his If water is warm, we shall bathe in the river....
оля2053
27.05.2021 06:34
Жазылым Төменде берілген екі тақырыптың бірін таңдап, жазба жұмысын орындаңыз. Жазылым жұмысында тақырыптан ауытқымай, абзац түрлерін жүйелі құрастырып, көркемдегіш құралдарды...
yanvoronovich
14.08.2020 13:12
ДОМАШНЕЕ ЗАДАНИЕ 10) Реши задачу разными .кАвтобус и автомобиль выехали одновременно в одном на-правлении из двух городов, расстояние между которыми480 км, Скорость автобуса...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array [1..50] of integer;
l: longint;
begin
for l := 1 to 50 do
begin
a[l] := random(-5, 5);
write(a[l], ' ');
end;
l := 1;
writeln();
foreach k: integer in a do
l *= k;
writeln(l);
end.