Составить программу какая вводит с клавиатуры элементы массива от 1 до 10 и высчитывает количество элементов с четными значениями
AzamatAmangaliev1
2
12.08.2019 00:40
0
Другие вопросы по теме Информатика
Позитив4ик123
18.08.2019 19:00
Яра3838367373
18.08.2019 19:10
Lenokin88
18.08.2019 19:10
Tumutova2006
18.08.2019 19:10
accyxob
18.08.2019 19:20
Vita0814
18.08.2019 19:30
nadechdavasilev
18.08.2019 19:30
vvvvsidorina
18.08.2019 19:30
Tenb11
18.08.2019 19:30
Популярные вопросы
- Преобразуйте актив в пассив и наоборот...
3 - Опредилить вид (ССП, СПП, БСП) и подчеркнуть подлежащие и сказуемое....
3 - Что такое- излучение?А)Поток быстрых двух зарядных ионов гелия.Б)Поток...
3 - Решите уравнение 6y2−9y+3=0 Если уравнение имеет более одного корня,...
1 - Які цінності дарують нам книжки? ...
3 - Точка С середина отрезка АВ.Найдите координаты точки С если А(8;2),и...
2 - Шарик массой 1г и зарядом 0,1 мкКл висит на невесомой и нерастяжимой...
2 - Написать характеристику Джима из рассказа О. Генри Дары волхвов по...
2 - Какой из данных точек проходит график уравнения 5 икс минус 2 игрек...
3 - Решите уравнение (−5y−3)(2y−1)=0 Если уравнение имеет более одного...
2
var
n,i: integer;
a: array [1..10] of integer;
begin
n:=0;
for i:=1 to 10 do
begin
read (a[i]);
if a[i] mod 2=0 then n:=n+1;
end;
writeln ('четных значений -',n);
end.