файл Опции

[KATYSHA]

Препод всё-таки поменял задание,я решила создать новую тему,а то там лепить как-то некрасиво. Задание такое: дан файл вещественных чисел.заменить в нём все отрицательные элементы значением минимальной компоненты файла.Прошу помощи в решении,помогите

[GoodWind]

1. перебираем файл в поисках минимаоьного элемента

Код

{....}
var f,a:file of real;
     f_min,f_tmp:real;
{.....}
f_min:=-2.9e-39;
reset(f);
while not eof(f) do
begin
  read(f,f_tmp);
  if t_tmp<f_min then f_min:=f_tmp;
end;

2. теперь перебираем файл еще раз, заменяя отрицательные элементы минимальным

Код

reset(f);
rewrite(a);
while not eof(f) do
begin
  read(f,f_tmp);
  if f_tmp<0 then f_tmp:=f_min;
  write(a,f_tmp);
end;

все