Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kolodenkoa444
14.10.2021 13:27 •
Информатика
Впаскале и без функции рандома, . дан массив целых чисел. вывести индексы тех элементов, значения которых кратны 3 и 5.
Показать ответ
Ответ:
kpoo1
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 оценок)
Популярные вопросы: Информатика
IVANICH31
30.12.2021 12:05
Задание 6_Сеть - это... Выберите один из 4 вариантов ответа: 1) граф с циклом. 2) цепь, в которой начальная и конечная вершины совпадают. 3) граф, в котором вершины...
egor20031510
12.08.2022 03:25
Запиши программу на языке Паскаль для: y = 0, если x≤0 x, если 0 x ≤ 1 (y:3:0) x^2, если x 1. Запусти программу и введи значение x=15.Число выведенное на экран =...
YomiTan
17.02.2020 13:34
Дана высота и радиус цилиндра. найти площадь боковой поверхности, полную площадь. s=2пrh. sn=s6+2пr...
Nina1211065
10.06.2022 19:26
Продолжите фразы: система - это карта дает нам чертеж - это блок-схема - это...
qwertyspro
19.06.2022 22:15
Получите 16-разрядное представление следующих чисел: а) 25 б) -610 С объяснением если можно....
angryhanry
19.04.2020 19:38
Степан Вікторович хоче роздрукувати великий банер із фотографією сина, що йому необхідно зробити із зображенням, щоб банер вийшов якісним?...
kosarymova
03.02.2022 18:21
Что необходимо для того, чтобы декодировать зашифрованное сообщение? Знать кто его прислал Знать код Уметь декодировать Какое слово получится если расшифровать данный...
mranishanbaev
10.11.2021 12:59
Укажите количество логических переменных и порядок выполнения логических операций, а также постройте таблицы истинности для логических выражений: 1) A∨A&B 4)(A∨B)...
Ксюника1
31.03.2023 21:20
1. 1)как проверить букву я в слове посеявший? 2)как проверить букву я в слове затеянный? 3)как проверить букву а в слове колышащий? 4)как проверить букву и в слове...
sonyaunicorn1
31.03.2023 21:20
Доклад (не более 150 слов ) по теме мономах - имени...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.