Дан файл, содержащий целые числа. Найти количество нечетных чисел среди элементов файла

[Пепел Феникса]

Program  fileInt;
uses crt;
var i,c:integer;
     f:file of integer;
BEGIN
 c:=0;
 Assign(f,'FileName');//имя сами заполните, либо у пользователя спрашивайте
 Reset(F);
 while not EoF(f) do
  begin
   read(f,i);
   if i mod 2=0 then c:=c+1;
  end;
 Writeln(c);
 Close(F);
 Readln();
END.

и за что деньги брать тут?

[Grag]

Уже все оговорено и давно сделано

[Grag]

Сообщение от Пепел Феникса

   if i mod 2=0 then c:=c+1;

Вот это лично я сделал так:

  if odd(i) then Inc(c)

Работать будет гораздо быстрее...
Только программу сделал более универсальную, которая и формирует DataFile и читает его и ищет в нем... Все в одном флаконе...