tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Введите элементы массива а[1..10]
Введите элементы массива а[1..10] с клавиатуры и вычислите количество элементов с четными положительными значениями.
nyamnov
2 14.08.2019 21:10
1
Ответы
helppliz5
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.
Таки да, пиши, на каком языке тебе нужен ответ!
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
dyba2003
27.06.2019 11:50
Задайте массив из 10 элементов с датчика случайных чисел. все положительные элементы замените максимальным. выведите на экран исходный и измененный массивы....
кар91
27.06.2019 11:50
Напишите программу, которая в последовательнсти целых чисел определяет количество нечетных чисел, кратных 3. программа получает на выход целые числа, количество введенных...
дмитрий462
18.03.2021 10:21
Дед Мороз дал Грише 6 апельсин, Маше-4, Пете-7. Дети решили «Махнуть не глядя» Смоделировать процесс «В паскале»...
saharok16
18.03.2021 10:21
Аслан написал программный код для шахматной ладьи Какой результат получит Аслан при вводе значений 1. 1. 2. 2? Yts No ладья не может так ходить (Ладья ходит и бьет противника...
Ghasty
09.12.2021 07:37
В ячейку С4 введена формула =$С$2...
mqu
31.03.2019 23:16
Задано дві функції від двох змінних x, y. необхідно скласти програму мовою c, що обчислює значення цих функцій. (перед написанням програми спростити задані вирази та...
Huliganka3009
31.03.2019 23:13
На числовой прямой даны два отрезка: p = [3, 9] и q = [4, 12]. выберите такой отрезок a, что формула ( (x ∈ а) → (x ∈ p) ) \/ (x ∈ q) тождественно истинна, то есть принимает...
voolll
04.04.2021 20:13
Запишіть рядок оголошення змінних типу таблична величина: З іменем mas що складається з елементів дійсного типу з номерами від 1 до 10....
alisa0901
04.04.2021 20:13
Язык C++ Написать программу: Два квадрата двигаются в противоположных направлениях и отталкиваются от стенок...
Liza200011111
04.12.2020 14:13
Сумму чисел 280 и 520 увеличить на 8 раз...
Популярные вопросы
2 2 Read again and complete the answers.1Q: My hair is a mess. What...
3
2. Определи стиль текста. Эта голубая планета, третья по счету от...
3
E) (-2; 4) 3. Выразите у через хиз уравнения 10x – бу – 7 = 0А) y...
1
Укажите наречия и прилагательные в сравнительной и превосходной степени....
2
Дам лучший ответ✨ максимальный ...
3
Сравните многообразие живых организмов в экосистеме озера и леса...
3
верно неверно 1.Первая половина XIX века под знаком стремительного...
1
2. Дополни таблицу. Сравните половое и бесполое размножение ЭТО СОР...
2
1 A group of shops in one building: s h o p p i n g c e n t r e ....
2
7. Hanging out with friends Match the phrase with the examples.designing...
1
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.
Таки да, пиши, на каком языке тебе нужен ответ!