Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
kirill4389
02.11.2021 23:50 •
Информатика
Найти количество нулевых элементов среди 20 в веденых с клавиатуры
Показать ответ
Ответ:
MFINN23
04.10.2020 19:16
Var
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Darina17821
25.02.2023 05:14
Информатика 9 класс. полное решение,...
1Asya111
01.01.2020 06:21
Заполнить массив случайными числами в интервале [-10,10] и отобрать в другой массив все чётные отрицательные числа. пример: массив а: -5 6 7 -4 -6 8 -8 массив b: -4...
air7789
09.03.2022 13:23
Установите соответствие: 1 текстовый файл, 2 графический файл 3 архивный файл 4 звуковой файла а летний дворец б солнышко в проба г гроздь рябины...
sheramedi
23.07.2021 13:14
Даны 5 целых чисел. посчитайте минимально возможную и максимально возможные суммы выбрав ровно 4 числа из заданных изначально с++...
Dj669
23.07.2021 13:14
Укажи формы абстрактного мышления.запишите их определение...
mlphappyme
20.06.2021 03:16
Написать програму вычесления площади и периметра прямоугольника , если извесна длина сторон a, b.(всё это дольжно выгледит програмай для паскаль adc)...
karamendes1p06wtk
01.09.2021 03:36
Составьте программу формирования и вывода на экран одномерного массива состоящего из максимальных элементов столбцов двумерного массива заданного с датчика случайных...
Артем123100
02.04.2021 18:54
Дан программный код. Определи тип данных 12a = 10b = hello 3 с = Trueprint(type(a))5 5 print(type(b))6 6 print(type(c))Str,dict, floatBool,Int,StrInt, float, dictInt,...
shevelevaalla
16.05.2020 12:43
Рассмотри код, укажи верный вариант результата выполнения программыa=6;b=15;c=38;a=a+b+cprint(a)...
Timewinter
02.01.2023 13:14
Написать программу на языке С++, при case В некотором учебном заведении действуют следующие правила приема. Абитуриенты сдают три экзамена. Если они набирают не менее...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,count:integer;
h: array [1..20] of integer;
begin
count:=0;
writeln('Введите элементы');
for i:=1 to 20 do
read(h[i]);
for i:=1 to 20 do
if h[i]>0 then
count:=count+1;
writeln('Количество нулевых элементов ', count)
end.