АЮ
Алексей Юдин

PASCAL ABCпользователь вводит 10 целых чисел. посчитать сколько из них нечетные

PASCAL ABC
пользователь вводит 10 целых чисел. посчитать сколько из них нечетные

Станислав
Станислав

s:=0;
for j:=1 to 10 do begin
readln(a);
inc(s, a and 1);
end;
writeln(s);

АС
Абулайси Саидахмад

пиши на мыло помогу

Настена
Настена

Цикл от 1 до 10. Ввод в цикле всех 10-и чисел в одну переменную. После ввода - условие: "если остаток от деления данного числа на 2 не равен 0, то увеличиваешь счетчик (заранее обнуленный) на 1". Все.

Похожие вопросы
двумерный массив 10 на 10 целых чисел. (С++)
Pascal. Как найти самое большое число из 10 чисел?
Дан список из чисел: 1)Посчитать сумму чисел в данном списке. 2)Посчитать наиб. значение в данном списке. Pascal ABS
Нахождение простых чисел (pascal)
Помогите. Найти сумму целых положительных нечетных чисел меньших 50. в Turbo Pascal
Количество нечетных положительных чисел
Чего больше в матрице целых чисел 5x5: четных или нечетных?
найти сумму и произведение 30 целых чисел, двумерный массив (pascal)
Посчитать среднее арифметическое 10 чисел QBasic
Составить программу которая просчитает сумму всех целых чисел от 1 до n, n-вводится с клавиатуры. (Pascal)