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

nyatteloiv nyatteloiv    2   26.07.2019 07:40    4

Ответы
Egoraptor Egoraptor  07.08.2020 14:28
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика