Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
aldeerGroMo
07.06.2023 01:33 •
Информатика
Информатика дан массив целых чисел. найти количество нулей
Показать ответ
Ответ:
kazachok2
06.10.2020 09:14
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-9,9); a.Println;
Writeln('Количество нулей равно ',a.Where(x->x=0).Count)
end.
Пример
n= 25
0 1 5 3 -8 8 3 -9 6 9 2 -1 -6 -8 -1 0 -1 7 5 4 8 -1 4 9 1
Количество нулей равно 2
0,0
(0 оценок)
Популярные вопросы: Информатика
Маркус337
30.12.2022 13:19
Дана задача на цикл с предусловием. Найдите ошибки в коде программы: (номер 4)...
Seselia
11.02.2020 00:51
Цветное растровое графическое изображение содержит 256 цветов и имеет размер 20x10 точек . Какова глубина цвета данного изображения?...
яяя612
30.10.2021 19:26
Запишите следующие высказывания в виде логических выражений. Определить высказывание А= «», В= «», логическую связку между ними. 1. Число 17 нечетное и двузначное....
имилька
30.10.2021 19:26
. Определите результат вычисления следующего выражения. Какой тип будет у этого результата? а) 2 * 4 + 10б) 3.5 * 2 — 17в) 48 + 16 mod 5а) 46 div 12 — 7б) 24 — 50...
456akcyka
02.02.2023 03:15
3. 3D принтердің жұмысын қалай түсіндіре аласың? 4. Күнделікті тұрмыста 3D принтерді қандай мақсатта қолдануғаболады?...
Meri1314
27.09.2021 13:40
1. Құралдар тақтасы дегеніміз не? 2. Нысанды кірістіру батырмасының қандай мүмкіндіктерін білесің ? 3. Жазу батырмасы қандай мүмкіндік береді?...
1FACE1
10.07.2022 05:11
Вычисли площадь закрашенного сектора, если радиус круга равен 9 см и центральный угол EOF= 72°...
настя7073
10.07.2022 05:11
Какие нравственные уроки мы можем извлечь, наблюдая за взаимоотношениями героя с представителями «дурного общества»? Дети подземелья...
yuliayatseniuk1
17.04.2022 05:20
Під час паралельного перенесення точка A (2; -1; 3) переходить у точку A1 (3; -2; 1) . У яку точку переходить точка B , що симетрична точці A відносно осі абсцис...
СешМАНИ
09.02.2021 19:19
Які небезпеки має глобалізація для молоді?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-9,9); a.Println;
Writeln('Количество нулей равно ',a.Where(x->x=0).Count)
end.
Пример
n= 25
0 1 5 3 -8 8 3 -9 6 9 2 -1 -6 -8 -1 0 -1 7 5 4 8 -1 4 9 1
Количество нулей равно 2