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

Question

Информатика

Елистрат

28 июня, 12:48

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

+5

Ответы (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.