[Asira]

помогите написать цикл который заменит все отрицательные числа в файле на их модули.

[Страдалецъ]

В теме звучит типизированный. Где структура?

[Asira]

В файле содержатся переменные типа integer.....короч как сделать ентот цикл??

[lmikle]

Я бы вычитал все в массив, а потом записал все измененное.

[Asinkrit]

Я же тебе уже давал код, там всего пару строк изменить надо было)

Код:

var
  F:File of Integer;
  x:Integer;
begin
  AssignFile(F, 'filename.txt'); 
  Reset(F);
  while not eof(F) do
    begin
    Read(F, x);
    if (x < 0) then
      begin
      Seek(F, FilePos(F)-1);
      Write(F, 0);
      end;
    end;
  CloseFile(F);
end;
...

[Asira]

Спасибо!!!!!!!! вот до ентой строчки я не могла додуматься

Код:

Seek(F, FilePos(F)-1);