Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
vladazavialova
10.06.2022 14:06 •
Информатика
Вводится число n, а затем n чисел. подсчитайте, сколько среди данных n чисел нулей.
Показать ответ
Ответ:
Spez18
24.06.2020 20:47
Program Z_n;
var a:array[1..10000] of integer;
N,c,i:integer;
Begin
Readln(N);
For i:=1 to N do begin
Readln(a[i]); // вводите числа через enter
if a[i]=0 then c:=c+1;
end;
Writeln('Среди введеных чисел' ,c,' нулей');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Mogolan
31.10.2020 00:17
Напишите программу: массив a содержит чётное количество элементов n. нужно поменять местами пары соседних элементов: первый со вторым, третий — с четвёртым и т. д. на языке...
умница20063
30.08.2022 10:53
Напишите программу: напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке [–5; 5] и находит сумму ненулевых элементов. на языке паскаля...
семенггвп
21.09.2020 02:57
Что такое внешняя среда системы?...
Folknesss14
31.10.2022 03:40
Напишите выражение средствами математических функций языка паскаль...
Катерина26121
04.01.2021 03:44
Опираясь на блок-схему и программу написанную на языка Pascal, составить блок-схему и программу, вычисляющую F =30- c, если c 0, или F=c/4,если c =0 ...
iNNA9078
18.07.2021 21:22
1. Пусть объём жёсткого диска компьютера, к которому вы имеете доступ равен 500 Мбайт. Сколько страниц текста можно было бы разместить в памяти этого компьютера ( на странице...
Sergey15211
06.02.2021 21:02
Сколько книг поместиться на компак т диске емкость 10 Гбайт в книге 1500 страниц на каждой странице 50 строк по 40 символов в строке...
Anastasia5555633
27.08.2020 16:11
Нужен доклад на тему источники заражения мобильных устройств...
Нурик2266
02.01.2021 22:48
Вещество А представляет собой бесцветную горючую жидкость. При сгорании вещества А образуются три оксида – Б, В и Г – в мольном соотношении 1 : 8 : 10, причём известно, что...
help274
02.01.2021 22:48
Хто такий Пустельник? А. молодий художник із КиєваБ. мандрівникВ. жебракГ. старий філософ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..10000] of integer;
N,c,i:integer;
Begin
Readln(N);
For i:=1 to N do begin
Readln(a[i]); // вводите числа через enter
if a[i]=0 then c:=c+1;
end;
Writeln('Среди введеных чисел' ,c,' нулей');
end.