Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ХлойкаПрайс
12.12.2020 14:58 •
Информатика
Паскаль массив составить программу имеется массив в11 из целых чисел. найти количество элементов массива, больших числа 2 и кратных 3
Показать ответ
Ответ:
roman20031022
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 оценок)
Популярные вопросы: Информатика
дззззззззззззззззз
07.02.2021 11:35
Что делать если не показывает статус в ватсапе мой у других и другие у меня ? скажите мне...
SakuraHarunoo
25.07.2022 11:29
Уисполнителя калькулятор две команды 1 прибавить 1 2 прибавить 2 первая из них увеличивает число на экране на 1, вторая на 3.сколько разных чисел можно получить из числа 2 с программы,...
lisablida
10.12.2020 22:32
Как выглядит логические схемы одноразрядного двоичного сумматора на 4 входа?...
ogorodnikovkir
20.07.2022 13:44
На языка паскаль. с клавиатуры вводятся целые числа a, b и c. если а*b больше, чем с2-b, тогда выведите а+b, в противном случае выведите b+c....
mansya01
09.06.2022 03:55
Створіть проект , після запуску якого на формі буде намальовано зображення таких графічних примітивів : б) Прямокутник з протилежними вершинами в точках (50,50) та (250,150 ) , лінії...
7chappe
13.05.2023 12:18
2. Дан фрагмент текста. Столица: Нур-Султан с населением 1078 362 человека) Определите назначение знака 1б) Определите назначение знака іі...
Matvey1745789
13.05.2023 12:18
Написать эссе на тему наше будущее в наших руках ...
McGravii
09.09.2022 03:19
Можно ли в электронной таблице excel записать текст по диагонали?...
adadurovf
09.09.2022 03:19
Var a,b,c,x,y: integer; begin read(a,b,c); x: =a; y: =b; if ((a*x+b*y)/c) mod c=0 then writeln( yes ) else( no ); end. ссылается на ошибку в конце в на mod c=0, говоря, что операция...
Маргольц
09.09.2022 03:19
Составьте программу, которая формирует массив из 20 случайных чисел от -10 до 10выводит на экрын элементы с нулевыми значениями и их индексами...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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