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

[Лёха]

Дан текстовый файл. Определить сколько раз в нем встречается буква ‘е’.

[ncgs]

Читаешь текст из файла как массив из строк. Во внешнем цикле пробегаешь по массиву из строк, во внутреннем по строке, если встречаешь "е", то к счётчику прибавляешь одын...

[klem4]

Читаешь текст из файла как массив из строк. Во внешнем цикле пробегаешь по массиву из строк, во внутреннем по строке, если встречаешь "е", то к счётчику прибавляешь одын...

Только строки в массив заносить не надо. А можно и без строки вообще ;)

uses crt;

var
   f : text;
   count : word;
   ch : char;
begin

   clrscr;

   assign(f,'c:\test.txt');

   reset(f);

   while not(eof(f)) do begin
      read(f,ch);
      if ch='e' then inc(count);
   end;

   writeln(count);

   close(f);

   readln
end.