Написать прогу, которая находит в массиве из 100 элементов чётные элементы и считает их кол-во.
dashikryb
3
03.04.2019 21:19
3
Другие вопросы по теме Информатика
АлинкаГал
27.08.2019 03:50
Виктория89873436940
21.06.2020 23:20
metalnikovat
27.03.2020 22:51
Lubimka01
27.03.2020 22:48
temka2013
27.03.2020 22:46
nastyyanokogloStasya
27.03.2020 23:07
Ксюша12929288282
27.03.2020 23:07
Ксения222332
27.03.2020 22:03
sashka1586
27.03.2020 21:45
Популярные вопросы
- які з даних формул відповідають оксидам, а які пероксидам. ОБГРУНТУЙТЕ СВІЙ...
1 - Стрижонок скрип подрос план из 3 действий ...
1 - До іть Треба намалювати який буде графік області визначення функції z=arcsin(x/y)...
1 - Организация получила безвозмездно от физического лица объект основных средств....
3 - Побуду точку, у яку переходить точка В у результатi повороту вiдносно точки...
2 - Тіло починає вільно падати з висоти H1=80 . Одночасно з точки яка знаходиться...
1 - Швидкість руху автомобіля масою 1,5 т змінюється під час прямолінійного руху...
1 - 12. Арифметическая прогрессия задана условием аn = 4,2 - 0,6n. Най- дите сумму...
1 - . а это много. Упражнение 2а....
2 - Подчеркните наречия, объясните слитное и раздельное правописание слов. Вдали...
2
var
a:array[1..100] of integer;
x,i:integer;
begin
x:=0;
for I:=1 to 100 do
begin
read(a[i]);
if a[i] mod 2 = 0 then x:=x+1;
end;
writeln(x)
end.