Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
mustafaalbakov
08.03.2023 14:40 •
Информатика
Составить программу,которая формирует одномерный массив и выводит на экран все элементы,кратные 7.
Показать ответ
Ответ:
валенок123
02.10.2020 05:31
Const
n=10;
var
a:array[1..n]of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=1 to n do
if a[i] mod 7=0 then
begin
write(a[i]:4);
k:=k+1;
end;
if k=0 then
writeln('нет кратных 7')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
pilel
11.01.2023 16:40
Язык программирования c# в visual studio написать программу, которая выводит на экран квадрат пифагора – таблицу умножения...
oliaputliar
04.08.2021 10:25
, ПОСТАВИЛИ ЕДИНИЦУ 1) Текст занимает на жестком диске 12 кбайт памяти и содержит 6144 символа, в какой кодировке представлен этот текст?...
GaLat666
09.07.2021 07:58
все это необходимо сделать в calc или exel Вычислить величину У(х), зависящую от условий, с логической функции ЕСЛИ. Исходные данные подобрать самостоятельно. Параметр а...
c1Darkness1c
13.07.2021 07:17
ответьте на вопрос: Какая модель может быть представлена в форме текста на естественном языке, формулы или программы на специальном языке программирования? Заранее...
marinedzhan000
07.08.2022 20:43
1. упростить формулу 2. Составить таблицу истинности и РКС для новой формулы...
ApuCTokpaT1
14.01.2021 06:38
1.для хранения желудей их необходимо просушить, причем при сушки они теряют 8 % своего веса. сколько желудей нужно собрать, чтобы прсле прослушки получить 368 кг. желудей?...
MasterGameTV1
14.01.2021 06:38
dont forget the most important thing,artos.king arthur beat our enemies,the pagan angles and saxons,and gave us fifty years of place. yes, father.i know that.i hate the...
Ильха1
14.01.2021 06:38
Предложения о сказках со словами чудо чудеса чудесный чудище чудовище...
Алибабо
14.01.2021 06:38
Какие требования выдвигали земледельцы,ремёслиники и торговцы на своих сходках...
5555Анастасия5555
14.01.2021 06:38
Разобрать по составу. недобрый, по-мастерски, посмотрю, подснежник, обидчивый, перекресток, отметка, риторика....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n=10;
var
a:array[1..n]of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=1 to n do
if a[i] mod 7=0 then
begin
write(a[i]:4);
k:=k+1;
end;
if k=0 then
writeln('нет кратных 7')
end.