Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
314159026
30.08.2021 20:17 •
Информатика
Заполнить массив из 20 элементов случайными числами, определить количество нулевых элементов массива
Ответ:
danik131
06.10.2020 10:33
begin
var a:=ArrRandom(20,-10,10);
a.Println;
writeln(a.Where(x->x=0).Count);
end.
Пример работы
-6 -8 8 6 -4 9 0 -3 0 9 1 -4 8 4 9 3 -7 -2 0 -10
3
0,0
(0 оценок)
Популярные вопросы: Информатика
Davidavid
10.10.2020 05:28
Вводится n целых чисел. определить, сколько из них заканчивается на цифру 7. определите количество двузначных чисел, у которых сумма цифр равна 7....
Kazhimyrat0210
12.04.2022 08:53
Протабулировать функцию y= -x^2+3x-9, где x принадлежит отрезку [-5,3]...
Angelinaburgano
12.04.2022 08:53
Если в заданной матрице a(n, m) есть хотя бы один элемент, больший ста, то элементы обеих диагоналей замените нулями. написать программу на pascal...
Anna18181818181818
01.07.2022 06:51
Скажите можно ли как-то наладить флешку? и если она немного согнулась?...
Сириc
01.07.2022 06:51
Записать алгоритм приготовления любимого блюда кроме яйцо...
lalabai1
08.08.2020 23:41
Раскодируйте сообщение по хэммингу: 1010001101....
Fissadi
12.09.2022 07:19
Записать в развернутом виде числа.1) a10=13477 2)a8=251617 3)a6=45520 4)a16=7744 5)a2=10001...
JackTheBit
03.12.2021 06:50
это онлайн мектеп не могу сделать Работа с кривыми. Урок 1онлайн-школа (на казахском языке)...
milanakuzmina2
03.07.2020 08:46
1. У исполнителя Делитель две команды, которым присвоены номера: 1. раздели на 2 2. вычти 1 Первая из них уменьшает число на экране в 2 раза, вторая уменьшает его на 1. Исполнитель...
Karina3589
09.11.2022 15:27
Напишите наибольшее число x, для которого истинно высказывание. НЕ (x 31) И НЕ (x нечётное)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a:=ArrRandom(20,-10,10);
a.Println;
writeln(a.Where(x->x=0).Count);
end.
Пример работы
-6 -8 8 6 -4 9 0 -3 0 9 1 -4 8 4 9 3 -7 -2 0 -10
3