Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
arrrtem
18.11.2020 06:45 •
Информатика
Даны натуральное число n и последовательность из n целых чисел. написать программу, определяющую количество положительных чисел в последовательности.
Показать ответ
Ответ:
MaksRomanov1
25.09.2020 01:37
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
Print(ReadSeqInteger('>',ReadInteger('n=')).Where(k->k>0).Count)
end.
Тестовое решение:
n= 10
> 5 -3 0 -4 2 5 8 0 3 6
6
0,0
(0 оценок)
Популярные вопросы: Информатика
annasevsehkocot
25.04.2023 14:53
Підготуйте повідомлення про розробку українськими вченими ЕОМ для керування атомнини криголомами ів! Будь ласка зробіть чим скоріше тим краще....
Fadasa
01.12.2020 23:54
информатика,распишите шаги...
agat2003
01.05.2023 05:46
На что нужно обратить внимание при выборе компонентов...
КкапризЗ
18.11.2021 11:11
Напишите инструкцию по эксплуатации компьютера, в которой рассказывается о профилактике заболеваний возникающих при длительной работы за компьютером....
danik131
19.04.2022 00:24
Какой формат имеет звук, записанный с вашего телефона?...
oles2014
17.02.2020 14:02
Проведіть оновлення антивірусних без антивірусної програми...
shariktop000
06.03.2020 10:35
составьте предложения с данными словосочетаниями укажите омонимы Страусово перо, перо авторучки; электрический разряд , спортивный разряд; гласный звук , гласное обсуждение ; изящный...
vkunney
06.03.2020 10:35
Где находится улица Пушкинская?...
раминок1
06.03.2020 10:35
Мінерал містить 6% Mg(CrO2)2 і 94 % Fe(CrO2)2. Визначте масову частку храму у міниралі. Яка маса храму містить у 1 т мінералу?...
1Продавец1
06.03.2020 10:35
Аналіз пісні Ой у лузі червона калина похилилася Будьласка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Print(ReadSeqInteger('>',ReadInteger('n=')).Where(k->k>0).Count)
end.
Тестовое решение:
n= 10
> 5 -3 0 -4 2 5 8 0 3 6
6