Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
maximusru05
04.04.2020 00:17 •
Информатика
Дано 7 чисел. найти произведение чисел больших 5.
Ответ:
linaaalinaa
19.07.2020 21:29
Var
mas: array [1..7] of integer;
s,i: integer;
begin
s := 1;
for i := 1 to 7 do if mas[i]>5 then s := s * mas[i];
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
dzavad1
13.05.2022 21:41
Составить программу изображения радуги. турбо паскаль....
Alina104969
13.05.2022 21:41
Как перевести отрицательное число в двоичную систему счисления?...
Ъъъъъъъъъъъъъъъъ
13.05.2022 21:41
Составить таблицу значений функции y=1.6-x^2/2 на отрезке [-1; 9] с шагом 0.7...
travisbeats
09.10.2021 23:29
я случайно удалил папку с драйвером, и не могу его деинстализировать что бы скачать новый драйвер, папку с драйвером уже не вернуть но в этой папке бил деинсталятор...
скмниниручвк
28.12.2021 05:59
Приветики всем. Столкнулась с проблемой((, язык программирования Питон. Раздел Условные операторы if, elif, else . Требуется ввести число от 1 до 12. На экран вывести название...
Sr529
19.12.2021 01:50
Как удалить вирус с флешки на ноутбуке с 10 Виндой?...
ser73
06.04.2023 08:38
Неліктен дайын шаблондарды алған тиімді нужна...
2254wearвика
30.05.2021 10:03
Напишите код программы на языке программирования Python , которая будет вычислять периметр треугольника....
ЖаннаLife
06.03.2021 11:41
Выпиши глаголы с приставками в столбиком кроме глаголов из последнего предложения.выдели корни и приставку.рядом с каждым глаголом запиши однокоренной глагол с любой другой...
msvladimirovnalena
06.03.2021 11:41
Скласти речення 1 підмет 2 присудок 3 три однорідні члени речення...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
mas: array [1..7] of integer;
s,i: integer;
begin
s := 1;
for i := 1 to 7 do if mas[i]>5 then s := s * mas[i];
end;