Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
PadhD
12.06.2020 03:58 •
Информатика
Составить программу,которая формирует одномерный массив и выводит на экран все элементы,кратные 7.
Показать ответ
Ответ:
ксюня264
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 оценок)
Популярные вопросы: Информатика
Насятя28
10.04.2022 10:44
Определить , является ли число, введенное с клавиатуры, двузначным или нет написать прогу в пайтоне...
Атабек111111
10.01.2023 15:15
Ввести массив из 10 элементов случайным образом.Найти сумму чисел кратных 3...
румия2408
23.08.2021 03:30
Составить блок-схему алгоритма и программу на языке Паскаль...
geniusdavidus
17.07.2022 08:47
Турист идет к озеру. у развилки сидят два брата каждый из которых знает какая дорога ведет к озеру . один из них все время врет а другой говорит правду.какие вопросы нужны...
AlexandraB11092003
22.12.2021 07:31
Фотографию размером 1024 х 512 пикселей сохранили в виде несжатого файла. Для хранения информации о цвете каждого пикселя использовали 2 байта. Определите размер получившегося...
Карина2209
17.10.2021 17:31
Что отличает этику ведения российского бизнеса? найдите в тексте характеристику этих особенностей...
OctavisicStar691
30.08.2021 22:36
Шертпе күйдің төкпе күйден айырмашылығын анықта.Екі дұрыс жауапты анықта...
1FACE1
19.01.2020 11:34
Напишите программу для вычисления Значения функции y=1/х-1.(это первый номер). И второй если можно...
habman
20.03.2022 10:38
Визначте яку алгоритмічну структуру реалізовано у фрагменті програмиa=10if a 5:a=5...
Валерушка8
17.08.2021 16:32
Электрический чайник состоит из двух обмоток.когда включают первую обмотку отдельно, то вода закипает за 30 минут, когда включают вторую отдельно- за 60 минут. за какое время...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.