Работа с файлами Опции

[Лёха]

Дан файл F, компоненты которого являются целыми числами. Найти количество четных чисел среди компонент.

все кто поможет, большое СПАСИБО!!!Заранее благодарен

[Анна]

uses crt;

var
   f : text;
   i, B : integer;

begin
   clrscr;
   assign(f,'c:\res.txt');
   reset(f);

   while not(eof(f)) do begin
      read(f,B);
      if B mod 2=0 then inc(i);
   end;

   writeln(i);
   readln;
   close(f);
end. 

[volvo]

Анна, внимательно:

Дан файл F, компоненты которого являются целыми числами.

У тебя файл - текстовый...

[Анна]

Просто если не создавать отдельно в программе файл, программа считает нормально, когда описание text ..
А так приходится создавать файл в самой программе:

uses crt;
const
N=5;
var
   f : file of integer;
   i, B : integer;

begin

   clrscr;

   assign(f,'c:\res');

   rewrite(f);

   for i := 1 to N do begin
      readln(b);
      write(f,b);
   end;

   reset(f);

   i := 0;
   while not eof(f) do begin
      read(f,B);
      if B mod 2 = 0 then inc(i);
   end;

   writeln('Кол-во чётных элементов: ',i);

   readln;

   close(f);
end.