Даны натуральные числа n, a1, a2, … ,an. определить количество ak последовательности a1,a2,…,an являющихся нечётными числами(сделать в паскаль авс)
asya20045
2
24.01.2020 19:49
19
Другие вопросы по теме Информатика
aruukealtymysh
01.10.2019 19:20
annet150586
01.10.2019 18:26
ffffffqqqqq1111
29.03.2019 15:47
rabbit27
29.03.2019 16:50
Nyry
04.06.2019 02:50
den193p08o5z
04.06.2019 02:50
Okean111
23.09.2019 16:00
alisherpitbul
22.05.2020 22:54
Популярные вопросы
- Сочинение на тему моя будущая профессия в современном мире...
2 - Написать сочинение по картине а.герасимова после дождя(мокрая...
3 - Разобрать слово самодовольную под цифрой 2. и разобрать слово...
1 - Сравните итоги первой российской революции и революции 1848-1849...
3 - Составить приложение со словами розстелать и выскочка (эти слова...
3 - Что было в общей собственности? родовая община соседская община...
1 - Каково число от 35 до 55 процентов....
2 - Choose the right answer. 1. while my friend (fished, had fished,...
2 - Здійснити перетворення cr²(so⁴)³ cr(oh)³ crci³ nacro²...
1 - На прямой отмели точки так, что расстояние между любыми двумя...
2
program p1;
var n,i,a,ak:integer;
begin
ak:=0;
write ('n = ');
readln (n);
for i:=1 to n do
begin
write ('a',i,' = ');
readln (a);
if a mod 2 <> 0 then ak:=ak+1
end;
write('ak = ',ak)
end.