файловый тип данных

[zxzxz]

Подсчитать для исходного файла среднее значение положительных чисел.Получить новый файл g, поместив в него только те положительные нечетные компоненты файла ,значение которых отличается от посчитанного среднего значения не более,чем на 10%

[Stilet]

Подсчитать для исходного файла среднее значение положительных чисел.

function avg(filename:string):double;
var f:file of double;d:double;i:integer;
begin
 assignfile(f,filename);reset(f);i:=0;result:=0;
 while not eof(f) do begin read(f,d);if d>0 then Result:=Result+d; inc(i);end;
 if i>0 then Result:=result/i;
 closefile(f);
end;

Получить новый файл g, поместив в него только те положительные нечетные компоненты файла ,значение которых отличается от посчитанного среднего значения не более,чем на 10%

function po(filenameIn,FileNameOut:string):double;
var f,g:file of double;d,e:double;i:integer;
begin
 e:=avg(FilenameIn);
 assignfile(f,filenameIn);reset(f);
 assignfile(g,filenameIn);rewrite(g);
 while not eof(f) do begin read(f,d);if (d/100*e)<=10 then write(g,d);end;
 closefile(f);closefile(g);
end;

Вроде ниче не упустил, только насчет процентов не уверен в правильности формулы.

[Mad_Cat]

насчет процентов

//var s:double;
{.......}
while not eof(f) do begin read(f,d);if (abs(d-e)/e<=0.1) and (d>0) and odd(d) then write(g,d);
end;
{.......}

и судя по

положительные нечетные компоненты файла

var f,g:file of integer;

[Stilet]

и судя по

Ой! Прошу прощения, недопрочитал

[zxzxz]

а почему он ошибку выводит,что неизвестное имя типа double?

[Mad_Cat]

а почему он ошибку выводит,что неизвестное имя типа double?

замените double на real