Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Настя123123ноно
24.05.2023 13:51 •
Информатика
5. массив а размером 10 заполняется с клавиатуры. верно ли, что произведение элементов массива, оканчивающихся на 5, больше 150?
Показать ответ
Ответ:
маг42
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 оценок)
Популярные вопросы: Информатика
paliy2006
18.05.2020 16:59
Дано число. Если оно положительное, то поменять его знак на противоположный. Написать программу на языке паскаль...
калина007
14.03.2020 22:12
Дан фрагмент электронной таблицы. В ячейку D1 введена формула =3*$B$1+A1/5 –$C1. а). Запишите адрес ячейки в формуле, который содержит относительную ссылку. б). Напишите...
макс10710
23.04.2020 12:28
Всистеме счисления с некоторым основанием десятичное число 85 записывается в виде 151 укажите это основание. укажите через запятую в порядке возрастания все основания...
Ak1se
28.03.2020 00:53
Дан массив слов произвольной размерности. выведите на экран все слова, в которых есть одинаковые буквы, стоящие рядом (например, гамма , класс )...
badangel888
05.11.2022 04:37
Перевести число 22 в шестнадцатиричную систему...
bi2002
05.11.2022 04:37
Составить программу в паскаль. вычислить и запомнить значения функции yi=x , если xi 0 yi=0 , если xi=0 -1 , если xi≤0 где xi - элементы массива из 20 элементов...
432120
24.11.2022 07:58
Впроцессе преобразования растрового графического изображения количество цветов уменьшилось с 65536 до 16. во сколько раз уменьшится объем занимаемой им памяти...
senazubik63kfkd
24.11.2022 07:58
Сообщение на тему: отличие электронной таблицы от таблицы реляционной базы данных....
sssooonnnyyyaaa1
24.11.2022 07:58
Напишите программу, которая вводит с клавиатуры 15 целых чисел, организовывает их хранение в одномерном массиве, а затем определяет среднее...
reshitov123
24.11.2022 07:58
Преобразуй данные текстовые данные ,рисунок,мой мобильный телефон.2 класс информатика страница 4 .фгос планета знаний...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.