Ввести с клавиатуры 10 целых чисел. Посчитать количество нечетных. (паскаль)
Ввести с клавиатуры 10 целых чисел. Посчитать количество нечетных. (паскаль)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы