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

Question

Информатика

Секлетея

11 февраля, 08:05

Ввести с клавиатуры 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.