Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
valeralch
07.06.2023 17:52 •
Информатика
Введите с клавиатуры массива d из n элементов целого типа,нумерация элементов начинается с 1 и найти количество элементов меньше чем 21 входные данныеn=4 1 23 45 7 выходные данные 2 паскаль можно через random побыстрее тока
Ответ:
alihannurmambe
06.10.2020 08:34
Var
n: integer;
begin
readln(n);
var a := ArrRandom(n, -10, 30).Println;
writeln(a.Where(x -> x < 21).Count);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
davidgts
21.04.2021 11:15
керек осы үшеуіне жауабы қайсысы айтып жіберіңдерш тінем ...
lipovtsev2016
27.03.2021 05:49
Количество инструментов, позволяющих создавать фотопанорам бесплатно: a)3 b)5 c)6 d)7 e)4...
ВвОзДуХе
22.12.2021 17:49
Запишіть алгоритм на Python для розвязання задачі Задача: обчислити суму цифр двоцифрового числа а....
superfifer
09.09.2022 23:52
1. Как ты думаешь почему важно изучать программирование? 2. Какие компоненты есть в интегрированной среде программирования? 3. Почему для изучения программирования...
esmirakagraman
24.07.2020 06:38
Краткое описание видов роботов...
незнайка1186
13.03.2021 02:27
НУЖНО НАПИСАТЬ СООБЩЕНИЕ ПРО ЖЁСТКИЙ ДИСК...
uhbarashek321
01.02.2022 14:18
8.8. Записать на Паскале логическое выражение, зависящее от X и Y, которое принимает значение True, если точка с координатами (X, Y) принадлежит закрашенной области,...
lenyskadi
11.11.2020 16:49
Запиши названияVideoPad,элементовокнапрограммыT...
dimatitov1428dimasik
07.07.2021 11:06
Запиши программу на языке программирования Pascal Дано 7 целых чисел Напиши программу нахождения наибольшего ненулевого среди них.Спамеров баню сразу!...
artgensh
01.01.2021 05:42
К наименее необходимым программам электронного управления и документооборота относятся a) текстовые редакторы b) системы управления базами данных c) системы телеконференций...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
n: integer;
begin
readln(n);
var a := ArrRandom(n, -10, 30).Println;
writeln(a.Where(x -> x < 21).Count);
end.