Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Mashaaakuzzz
24.02.2020 17:01 •
Информатика
Паскаль массив составить программу имеется массив в11 из целых чисел. найти количество элементов массива, больших числа 2 и кратных 3
Показать ответ
Ответ:
оскарик3929
04.10.2020 15:28
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var b:=ArrRandom(11,-50,50); b.Println;
Writeln('k=',b.Where(x->(x>2) and (x mod 3=0)).Count)
end.
Пример
2 -10 -31 39 18 -35 -24 -22 4 -31 30
k=3
0,0
(0 оценок)
Популярные вопросы: Информатика
vinnikdanil
31.01.2021 16:58
52) в таблице запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте интернета: запрос количество страниц (тыс.) китай & (америка...
Alik2017
29.11.2020 12:44
Создать и вывести 11 элементный массив ,содержащий ,положительные и отрицательные числа, подсчитать количество отрицательных элементов массива. -информатика 10 класс ,вместе с...
flag4
29.01.2020 22:10
Сколько существует возможных последовательностей символов % и # длиной ровно 6 символов. исключите последовательности состоящих из 5 одинаковых символов....
nastia296
18.03.2021 21:50
Какой объем памяти требуется для хранения цифрового аудиофайла с записью звука высокого качества при условии, что время звучания составляет 3 минуты? высокое качество звучания...
камила507
03.11.2022 14:19
50 ! написать программу сумма четных чисел от 2 до 100(бейсик)...
ппппппп27р
14.04.2023 20:35
Сколько получится значений, если m=6 в формуле n=2^m? ! ...
Малефисента1111111
13.01.2022 15:02
Ккакому классу – текстовым или графическим редакторам, драйверам, системам программирования, программам профессионального назначения и т.д. – относятся следующие программы: nortoncommander,...
vovasherbak2003
13.06.2020 22:57
надо составить блок схемы по этим ....
СерёгаД
08.05.2022 13:30
Для подключения компьютера к локальной сети используют...
Krisomanka01
26.06.2021 15:35
Сообщение на тему как оценить смысл информации фастом за 20...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var b:=ArrRandom(11,-50,50); b.Println;
Writeln('k=',b.Where(x->(x>2) and (x mod 3=0)).Count)
end.
Пример
2 -10 -31 39 18 -35 -24 -22 4 -31 30
k=3