Информатика, опубликовано 2018-08-22 23:05:45 by Гость
Ввести с клавиатуры 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.