Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Max325t
22.07.2021 05:58 •
Информатика
Введите элементы массива а[1..10] с клавиатуры и вычислите количество элементов с четными положительными значениями.
Показать ответ
Ответ:
aaaaaalina1yuin
04.10.2020 19:36
На Pascal:
program znanija;
var
a: array [1..10] of integer;
number, i: integer;
begin
for I := low(a) to high(a)do
begin
read(a[I]);
if (a[I] > 0) and (a[I] mod 2 = 0) then
inc(number);
end;
writeln(number);
end.
Таки да, пиши, на каком языке тебе нужен ответ!
0,0
(0 оценок)
Популярные вопросы: Информатика
Nagornovani2002
03.06.2022 22:54
У исполнителя Омега две команды, которым присвоены номера: 1. прибавь 4; 2. раздели на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Омега увеличивает...
папа11111111111111
26.09.2022 21:49
Создайте приложение выводящее на экран, первые 15 чётных чисел. На Delphi...
smartass2
16.05.2021 18:17
1. ВЫЧИСЛИТЕ ЗНАЧЕНИЕ ФУНКЦИИ. 2. ПРОГРАММУ ВЫБОРА ИЗ ТРЁХ ЧИСЕЛ 1, 2, 3 И ПЕЧАТИ СООТВЕТСТВЕННО ЭТИМ ЧИСЛАМ ТРЁХ РАЗЛИЧНЫХ ФРАЗ: ЗДОРОВО, УХ ТЫ!, ХОРОШО...
KatherinePirs
20.08.2021 02:44
решить задания по информатике. Ветвления. Можете ещё написать решение большое!...
RedBalloon
15.10.2022 19:16
Информатикапрограммирование...
пух8564
11.12.2020 17:55
Программирование информатика ...
ChocolateMilk1
19.06.2020 14:27
2) объектіні талдау мен мақсатын анықтау модельдеудің кандайкезеңінде жүргізіледі?а) модельді жасау;b) есептің қойылуы;с) компьютерлік эксперимент;d) модельдеу нәтижелерін...
bulycheva0303
30.04.2021 16:43
Как называется эта часть у зарядника от компьютера...
adaman2006
16.09.2021 02:39
Тіло масою 40 кг плаває у воді ,об єм частини тіла над поверхнею води дорівнює v1=2дм^3, який об єм v усього тіла? густина води 1000кг/м рассписать)...
Дмыч
16.09.2021 02:39
Средства художественной выразительности в поэме василий теркин...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
program znanija;
var
a: array [1..10] of integer;
number, i: integer;
begin
for I := low(a) to high(a)do
begin
read(a[I]);
if (a[I] > 0) and (a[I] mod 2 = 0) then
inc(number);
end;
writeln(number);
end.
Таки да, пиши, на каком языке тебе нужен ответ!