Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
RRRR2221111
25.09.2022 05:28 •
Информатика
Вводится одномерный массив из 10 чисел . определите количество положительных чисел в данном массиве, стоящих на нечетных местах
Показать ответ
Ответ:
Kseniaghl
19.08.2020 14:53
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var a:=ReadArrInteger(10);
Writeln('Кол-во=',a[0:9:2].Where(x->x>0).Count)
end.
Тестовое решение:
3 -5 4 -2 -3 0 4 -1 -8 2
Кол-во=3
0,0
(0 оценок)
Популярные вопросы: Информатика
moiytrewq20005
17.01.2023 16:17
Известны результаты двух учеников на вступительных экзаменах(их 4). проходной не ниже 17. кто поступил? на языке qbasic....
Siemens1
10.02.2022 01:09
Кто в 8 классе по учебнику басова информатика,делал 15 номер по теме система счисления у кого есть решение скиньте полностью вопрос: заполните таблицу , в каждой строке...
zhantonov2013
13.08.2021 12:27
Вычисли сумму чисел в двоичной системе счисления: 1101010+101010 и в восьмеричной системе счисления: 457+123...
BooWim
08.11.2022 20:13
Разработайте блок-схему к программе, которая находит корни квадратного уравнения. для вставки в блок-схему формулы x=(-b±√(b^2-4ac))/2a воспользуйтесь командой: вкладка...
milankagl
31.12.2020 07:49
Составить блок-схему и программу на языке паскаль: 1) дана сторона квадрата. найдите площадь квадрата2) задан радиус окружности .найдите площадь и длину окружности3) даны...
nika0483
25.05.2020 14:13
Написать программу, которая определяет максимум, минимум и среднее трех чисел. Числа ввести с клавиатуры....
Gdyfyttyffhfry
22.12.2022 11:23
128 цветных рисунок седержит 800 байт информации. Из скольких точек он состоит?...
FrenkieMC
15.03.2023 17:12
Создать одну из предложенных Электронных Таблиц 1. Численность населения 2. Таблица продажи автомобиля 3. Таблица умножения...
киса5558
12.04.2021 06:48
Какие значения будут в ячейках...
belka20055
12.02.2023 09:46
Составить алгоритм с циклом, вывести на экран все пятизначные числа не больше 2706 в столбец...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ReadArrInteger(10);
Writeln('Кол-во=',a[0:9:2].Where(x->x>0).Count)
end.
Тестовое решение:
3 -5 4 -2 -3 0 4 -1 -8 2
Кол-во=3