Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Valeriag200034
30.12.2022 02:34 •
Информатика
Создайте целочисленный массив а[5.3]. вывести на экран элементы массива, кратные 5, и их индексы
Показать ответ
Ответ:
Alexader2352
12.07.2020 16:21
Var a:array[1..5,1..3];
i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 3 do
begin
readln(a[i,j]);
end;
for i:=1 to 5 do
for j:=1 to 3 do
begin
if (a[i,j] mod 5=0) and(a[i,j]<>0) then writeln(a[i,j],i,j);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Reiny
03.02.2020 03:50
Решите логическое выражение 1|0&-(1&0)|1...
мопс22
02.06.2023 07:20
Написать программу, которая вычисляет среднее арифметическое первых n членов последовательности 1, 3, 5, 7, …, n. Количество n задается во время работы программы. Среди...
MrDeder
07.01.2023 05:02
У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на b (b - неизвестное натуральное число; b ≥ 2) Выполняя первую из них, Альфа увеличивает...
Дерижабль
26.01.2021 02:40
1. Запусти Новый файл в среде Python, (File – New File) введи рассматриваемую программу: С цикла for вывести любую строчку из стихотворения или песни 7 раз. 2.2. Запусти...
Unikorn111
03.08.2020 06:18
Меры профилактики интенсивных заболеваний. !...
SeViK02
03.08.2020 06:18
Кіт легший за собаку в 4 рази, а разом вони важать 30 кг. скільки важить кіт і скільки собака?...
qsn50857
03.08.2020 06:18
Прогрессии ( bn) известно что b2 = -2 и q = 0,5. найдите b1 сумму первых трех членов....
thecartel777
03.08.2020 06:18
Всем ! подскажите какие природные комплексы суши вы знаете...
cooldude28
03.08.2020 06:18
Вычислите массу мрамора необходимого для получения в лаборотории 4,46 л углекислого газа если известно что в мраморе содержится 86% карбоната кальция...
ясин9595
03.08.2020 06:18
Придумать диалог,включив в него междометия...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 3 do
begin
readln(a[i,j]);
end;
for i:=1 to 5 do
for j:=1 to 3 do
begin
if (a[i,j] mod 5=0) and(a[i,j]<>0) then writeln(a[i,j],i,j);
end;
end.