Ввести n чисел вывести количество чётных.(паскаль)
maina342
2
26.08.2019 21:50
2
Другие вопросы по теме Информатика
bigman4
02.04.2020 12:59
annakolupaewa20
10.04.2020 18:17
karina2013652
10.04.2020 18:17
black17cat
04.10.2019 13:10
ТыУмНыЙ
01.05.2021 20:41
Школьниқ
16.09.2020 01:55
феня163
15.09.2020 23:16
Популярные вопросы
- 1)найти все значения а,при которых уравнение ах2+2х+3=0 2)ах2-3х+5=0...
3 - Взаємодія кисею з простими та складними речовинами...
1 - Масса 2 кг камня падает с высоты 100 дм и падает до 12 м / с при...
3 - Напишите на тему: что говорится в рассказах чехова, главная мысль?...
3 - при перетині двох паралельних прямих січною утворилося вісім куті.кожний...
1 - Пусть на рисунке 1: а) 1=132°, 8=48° б) 2=36°, 5=144° в) 3=103°,...
3 - На координатной прямой отметьте точки, координаты которых соответствуют...
2 - Утрикутнику bod у якому ac||bd,ac=5 см,bd=7см.знайдіть cd,якщо...
3 - Определите родственные слова каждом варианте и выпишите их. выделите...
2 - Составьте вопросы по рассказу чудесный доктор и ответы на них...
1
var a,i,n,k: integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin
readln(a);
if a mod 2=0 then k:=k+1;
end;
write(k);
end.