Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
gvozd1
24.09.2021 18:20 •
Информатика
Дано 7 чисел. найти произведение чисел больших 5.
Показать ответ
Ответ:
TimRus162rusg
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 оценок)
Популярные вопросы: Информатика
abdrahmanova136
21.05.2020 05:30
Какое число следует за if в 16-ой системе счисления? ...
киса822
07.10.2021 15:11
C++ написать программу написать функцию с одним целым параметром, возвращающую номер вызова этой функции (первый вызов возвращает 1, второй — 2, третий — 3, и т....
ПэкДжин
01.03.2022 16:50
Номера 1,2,3,4,5,6,7 на ресунке 3.42 указывают на название диаграммы. выпишите их и объясните, с какой целью эти элементы диаграммы используются...
амоооооооо
29.12.2021 21:38
Установить соответствие информатика...
layci
30.03.2022 23:24
Компания «крестоцвет» объявляет акцию для тех, у кого есть дисконтные карты. если они покупают товар на сумму более, чем 1500 рублей, то получают скидку в 5% на всю покупку. определите...
Isabekov1
21.03.2023 18:05
Определи стандарт, выбрав верный вариант ответа....
kse267253349894EMALZ
29.05.2021 18:20
Циклические алгоритмы с предусловием : дано натуральное число n. вычислить p=(1-1/2)(1-1/-1/n), где n 2.на языке паскаль...
haskaa12
23.12.2021 15:49
Перейдите на лист 1 и выполните в рамке. компания «макрохард» набирает программистов на новый проект. претенденты проходят два отборочных тура, на которых они выполняют тестовые...
arsenibest03
28.01.2021 22:24
Вячейке b2 записана формула =$a$1+100 её скопировали и вставили в ячейку с1. какая формула там будет?...
olgagolos
17.04.2022 17:14
Дан массив a(6). найти определить количество элементов равных 4. дан массив а(6; 6) найти максимум среди элементов повторившихся более одного раза....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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;