Подскажите, рлиз, как посчитать количество слов в текстовом файле, у меня получаетя, что он только считает количество символов.

и еще вот такое задание: Дан файл F, компоненты которого являются действительными числами. Найти наименьшую из компонент файла.

FAQ : Файлы
FAQ : Строки


это все не для красоты делалось ...

Сделал так:

Program AM052;
uses CRT;
var
   F: file of word;
   S: word;
   C: integer;
begin
     ClrScr;
     assign(F, 'F.txt');
     reset(F);
     C:=0;
     while not eof(F) do
           begin
                read(F, S);
                C:=C+1;
           end;
     writeln('C=', C);
     close(F);
     readln;
end.

Но выдает чета не то.

А ты что делаешь?

var
   F: file of word;

Возвращайся в FAQ и читай про разницу текстовый/типизированный файл...

ОК, а со второй не поможите

А с первой попробую

А еще есть кнопка редактирования сообщений.