Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Anna678901
29.04.2020 19:25 •
Информатика
Впаскале и без функции рандома, . дан массив целых чисел. вывести индексы тех элементов, значения которых кратны 3 и 5.
Показать ответ
Ответ:
Tipudi228
23.07.2020 17:49
Const n = 20;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if (a[i] mod 3 = 0) and (a[i] mod 5=0) then
Writeln('elem nomer ' , i)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Janna91
12.09.2022 08:03
Выполня 1. Запиши тему урс 2. Запиши определение (из видео урока).Оператор - это...скриптов (прсреде Scratch) )используйте онлайнверсию3. Запиши, какие операторы существуют...
olgaluppo
12.09.2020 11:22
СОР информатика 5 класс...
alesqwer
17.12.2022 19:06
Определите три характеристики процессора, описанного на скриншоте у меня сор ...
imranesedov777
05.02.2020 11:39
Даны натуральные числа а1 а2…аn. признак конца последовательности 0. определить количество и сумму тех членов последовательности, которые делятся на 5 и не делятся на 7. цикл...
Yotuberik
11.04.2023 17:39
Представить числа в машинном коде: 819 -278...
Zeus41
11.04.2023 17:39
9класс ! напишите программу, которая в последовательности целых чисел определяет их количество и сумму чётных чисел. программа получает на вход целые числа, количество введённых...
людмила245
11.04.2023 17:39
Два текста содержат одинаковое количество символов. первый текст составлен в алфавите мощностью-32 символа, второй мощностью-64 символа. во сколько раз отличаются информационные...
fafab232
11.04.2023 17:39
Вpaint выбран синий цвет линий и красный цвет фона. рисунок-зелёный шар на желтом фоне. выбрав инструмент ластик мы хотим сделать в шаре дырку. вопрос -какого цвета она получится....
1миллионДаша11
14.08.2022 05:28
2. Оқушылар Интернеттен алынған ақпараттың авторын анықтай алмады. Құжаттың көшірме еместігін дәлелдеу әрекетін көрсетіңіз...
bos002
17.07.2020 02:46
1. Укажите ложные утверждения. *(3 2) and (5 6) = true( a b ) or (1 0)= true60 20= truemod (5+3)=210 div 3=32 div 3 =12. Для того чтобы получить случайное число в интервале...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if (a[i] mod 3 = 0) and (a[i] mod 5=0) then
Writeln('elem nomer ' , i)
end.