Pascal. Задача 3-3

Пользователь вводит 10 целых чисел.  Подсчитать и вывести, сколько среди них нечетных чисел.

Примечание: Для увеличения значения переменной на 1 удобно использовать процедуру inc. Например, inc(n);

 

Решение

var
  i, a, k : integer;
begin
  k := 0;
  for i := 1 to 10 do begin 
    write('Введите ', i, '-е число: ');
    read(a);
    if a mod 2 = 1 then inc(k); 
  end;
  writeln('Нечетных чисел: ', k);
end.