Question

Сколько нечетных среди n введенных причем надо вводить эти числа с клавиатуры n раз

Answer 1

begin
write('Введите n: ');
  var n := ReadInteger;
var c := 0;
for var i:=1 to n do
begin
write ('Введите целое число: ');
var x := ReadInteger;
if x mod 2 <> 0 then
c += 1;
  end;
writeln('Количество нечетных равно ', c);
end.