Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nikgali
04.03.2020 12:18 •
Информатика
Дан массив из n элементов. определить количество элементов, кратных 3, но не кратных 5
Показать ответ
Ответ:
555сармат555
03.07.2020 20:24
Var
a: array[1..100] of integer;
k, i, n: integer;
begin
read(n);
for i := 1 to N do
begin
A[i] := random(40) - 20;
if (a[i] mod 3 = 0) and (a[i] mod 5 > 0) then
k := k + 1;
Write(a[i], ' ');
end;
WriteLn();
WriteLn(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
prunsesca005
26.09.2020 21:30
Найти значени выражение 220div 10mod 3 = (16 mod 6)/(2 div 1) =...
ksarbinaz
26.09.2020 21:30
8. сколько разных кодирования, или различного написания существует для слова «ара», если можно использовать только прописные буквы и латинского алфавитов?...
Отличница4561
26.09.2020 21:30
5. часы показывают 11.00. какое время будут показывать часы через 100 часов?...
AnnFair
06.02.2021 04:19
перевести из линейной записи в обычную следующие выражения: а) a⁄(b/c) б) ((a∙x+b))⁄((c∙x+d) )в) 1⁄(2∙a∙b∙sinx )г) (2∙b∙c∙cos(a⁄2))⁄((b+c) )д) abs(2∙sin(-3∙abs(x⁄2)) )распишите...
dogs2247
11.07.2021 17:46
Получить линейную запись следующих выражений: а) ((a+b))/2; б)5,45((a+2b))/2c; в) (-b+√(b^2-4ac))/2a; г) (-b+1/a; )/(2/c; )д) 1/(1+(a+b)/2); распишите ! ...
Nemosing
18.01.2023 09:21
Что является альтернативой для спарклайнов...
женя1373
23.07.2022 18:22
это СОР по информатике...
Ирма69
30.04.2020 22:15
Сколько потребуется времени, чтобы «выкачать» документ объемом 200 kbyte из интернета, используя модем (скорость соединения – 40000 bit/с)? напишите ход решение))...
Floren255
25.07.2022 16:47
Определить равнодействующие системы сил...
ayala041
19.04.2022 05:10
Сбуду 1)тело двигаясь равноускоренно за 10 с путь 150м, причем за десятую секунду, оно путь 24м. найти начальную скорость и ускорение тела? 2)поезд, двигаясь под уклон за 20 с путь...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array[1..100] of integer;
k, i, n: integer;
begin
read(n);
for i := 1 to N do
begin
A[i] := random(40) - 20;
if (a[i] mod 3 = 0) and (a[i] mod 5 > 0) then
k := k + 1;
Write(a[i], ' ');
end;
WriteLn();
WriteLn(k);
end.