Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
historican
27.08.2022 17:24 •
Информатика
Подсчитать количество элементов массива, кратных 3 и больших 50 в массиве а {}
Показать ответ
Ответ:
Ivan190901
14.08.2020 13:53
Var
a:array[1..10] of integer;
i, k:integer;
begin
for i:=1 to 10 do begin
write(i,'-й элемент: ');
readln(a[i]);
end;
k:=0;
for i:=1 to 10 do
if a[i]>50 and a[i] mod 3 = 0 then
k:=k+1;
writeln(k,' чисел');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
water12
05.03.2020 23:55
Точка на плоскости задана своими координатами x и y. построить таблицу, содержащую координаты пяти точек, для каждой из которых необходимо определить, принадлежит...
kamilaCOOL777
02.04.2022 19:27
Как в вк отправить файл с расширением .html?...
arte6767
21.07.2021 01:34
Решить! нужно подробное решение! . инфа...
NormerSE
08.05.2023 09:17
Написать линейный алгоритм решения в словестно-формульном виде и с блок-схемы. : найти площадь осевого сечения прямого кругового конуса с радиусом основания r и образующей...
kolya1123
03.05.2023 06:57
Составить программу для решения следующей задачи: найти все двузначные числа, сумма цифр которых кратна девяти. C#...
yasya142
28.08.2022 23:20
Существует метод шифрования – шифрование с ключа. ключом является слово цель . таким образом, результатом шифрования слова информация с этого ключа и с учётом того,...
жпжрдмдопнулуу
05.01.2023 23:15
Какой код серого цвета в цветовой модели rgb...
GFGFDGDF
02.03.2021 09:05
Задание 1 ( ). Используя среду графического исполнителя, запрограммируйте рисование следующей фигуры: 1.pngНа проверку нужно прислать скриншоты кодов и результаты...
лера12061206
08.04.2022 13:21
Что выведет эта программа?...
adrien3000
07.07.2022 15:51
Укажите, какие из перечисленных моделей являются математическими. 1.Таблица Менделеева 2.График изменения температуры воздуха за октябрь 3.Диаграмма, отражающая изменение...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..10] of integer;
i, k:integer;
begin
for i:=1 to 10 do begin
write(i,'-й элемент: ');
readln(a[i]);
end;
k:=0;
for i:=1 to 10 do
if a[i]>50 and a[i] mod 3 = 0 then
k:=k+1;
writeln(k,' чисел');
end.