задача с файлами, помогите разобраться Опции

[Solymr]

есть задание:
Задание3. В текстовом файле содержится последовательность действительных чисел. Из заданной последовательности получить последовательность логических констант со значениями True для положительных и False для отрицательных чисел. Полученную последовательность записать в результирующий файл. Имена исходного и результирующего файлов вводятся с клавиатуры.

program zadacha3;
var 
f,res: text;
i: integer;
filename: string;

begin
writeln('имя исходного файла');
readln(filename);
assign(f,filename);
writeln('имя результирующего файла');
readln(filename);
assign(res,filename);
{$I-}
reset(f);
{$I+}
if IOResult<>0 then
  exit;
rewrite(res);
while not eof(f) do
  begin
  readln(f,i);
  writeln(res,i>0);
  end;
close(f);
close(res);
end.

если ввожу в исходный файл только положительные числа, в результирующем пишет - True. Если только отрицательные - False. А если и те и другие, то тоже False. Это по-моему заданию не совсем соответствует. Может кто что подскажет?

М

Теги... мисс_граффити

Сообщение отредактировано: мисс_граффити - 7.06.2007 13:30

[Dimusik]

А как быть с такой задачей : Дана последовательность действительных чисел в текстовом файле. Найти их среднее значение отбросив предварительно мин и макс и результат записать а новый текстовый файл.