Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Milintin25
03.11.2021 22:14 •
Информатика
5. массив а размером 10 заполняется с клавиатуры. верно ли, что произведение элементов массива, оканчивающихся на 5, больше 150?
Показать ответ
Ответ:
ntaskaeva2
05.10.2020 06:45
Var
a: array[1..10] of integer;
i, p: integer;
begin
for i:=1 to 10 do
readln(a[i]);
p:=1;
for i:=1 to 10 do
if a[i] mod 10 = 5 then
p := p * a[i];
if p > 150 then
writeln('Верно')
else
writeln('Не верно');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Sveto4ka342
19.02.2020 09:57
Что будет выведено на экран в результате выполнения следующего кода...
Shamаn14
05.10.2022 08:57
Используя функцию ЕСЛИ заполните столбец G: если затраты превышают 35000$, то предоставляется скидка 5%, в противном случае – скидки нет....
звезда0ютуба
13.09.2021 12:10
РЕБЯТ ОТ ЗАДАНИЕ СЛОЖНОЕ Согласно биологической классификации царства делятся на типы, типы — на классы, классы — на семейства, семейства — на роды, роды — на виды....
KitBanin
19.03.2021 19:19
Яка панель інструментів у Word призначена для створення автофігур?...
Sendula
12.02.2021 09:16
Реши и выбери верный ответ. (FAT32) В Блокнот (Notepad) введён текст: Вор1. Информационный объём текста равен:байта2. Занимаемый объём на жёстком диске:ответить !...
Anasteyzhaaaaaa
08.03.2020 18:29
Углекислый газ массой 10 г нагрет от 20 до 30В°С при постоянном давлении. Найти работу расширения газа и изменение его внутренней энергии. Прям с обяснением и дано заранее...
LOTOTSKAA
24.05.2023 23:27
Рассмотри схему!  Сопротивление первого потребителя в 16 раз больше, чем у второго.Сила тока в первом потребителе ...равна силе тока во втором потребителе.во столько...
Nastlerfight
24.12.2022 23:12
Английский язык 6 класс диалог ...
UltraTwItTeR
24.12.2022 23:12
Назвіть основні забруднювачі грунтів внаслідок господарської діяльності людини...
Markos14
30.05.2022 22:16
. УКР ЛІТ ЛІСОВА ПІСНЯ 1) Чому у фіналі Мавка не жалкує про загибель свого тіла?2)Чи справді Мавка кохала Лукаша, якщо не стала боротися за його кохання? Висловіть свою...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array[1..10] of integer;
i, p: integer;
begin
for i:=1 to 10 do
readln(a[i]);
p:=1;
for i:=1 to 10 do
if a[i] mod 10 = 5 then
p := p * a[i];
if p > 150 then
writeln('Верно')
else
writeln('Не верно');
end.