Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Cunctator
23.05.2023 20:59 •
Информатика
Введите элементы массива а[1..10] с клавиатуры и вычислите количество элементов с четными положительными значениями.
Показать ответ
Ответ:
zaaz123
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 оценок)
Популярные вопросы: Информатика
чтлза
15.04.2022 01:22
Таблицу сохранить в файле Translate.docx. 3. Найдите лексические значення слов и занесите в следующую Таблицу: Слово Лексическое значение Карапуз Снегурочка Видеокарта...
elena090107
13.01.2021 07:21
по информатике Max2(7,14-5)-13...
visor0304
03.10.2022 00:51
Скласти алгоритм та написати програму. Дано два числа. Вивести большее из них...
mokaloka86
31.08.2021 01:45
Составьте к ней условие задачи Program nom5; Var x : integer; Begin Writeln ( введите оценку ); Readln (x); IF x=3 then Writeln ( удовлетворительно ) Else IF x=4 then...
helsey
08.01.2023 16:47
Написать программу, которая вводит с клавиатуры два целых числа и выводит их сумму, разность, произведение....
Dufrenb
15.07.2022 00:10
Почему слон находится под угрозой вымирания? ? краткий ответ...
kkalipso
15.07.2022 00:10
Решите маленькую ! число молекул в 67 л неизвестного газа при н. у. равно 1) 1,4•10²⁴ 2) 1,6•10²⁴ 3) 1,8•10²⁴ 4) 2,0•10²⁴...
Lenin227
15.07.2022 00:10
2006x^2 +2005x-1 =0 решите квадратное уравнение...
marinka713
15.07.2022 00:10
Частота коливань крил комара 600гц а період коливань крилець джмеля 5 мл секунд . яка з комах і на скільки більше здійснить ів крильцями за одну хвилину польоту...
babka5
15.07.2022 00:10
Сделать звуко-буквенный разбор слова скворчиха...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.
Таки да, пиши, на каком языке тебе нужен ответ!