Ввести с клавиатуры 10 целых чисел. Посчитать количество нечетных. (паскаль)

Question

Информатика

Ема

10 ноября, 15:21

Ввести с клавиатуры 10 целых чисел. Посчитать количество нечетных. (паскаль)

+4

Ответы (1)

Знаете ответ на вопрос?

Абрам · Answer 1

Cost=10;

var a:array[1 ... N] of integer;

i, s: integer;

for I:=1 to N do

readln (a[i]) ;

s:=0;

if a[i] mob 2 0 then

s:=s+1;

writeln ('s=', s) ;

end.