Question

Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an являющихся нечётными числами(СДЕЛАТЬ В ПАСКАЛЬ АВС)

Answer 1

Ответ:

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.