Question

Сорганизуйте заполнение типизированного файла случайными целыми числами из интервала [-10; 10]. выведите содержимое файла на экран. замените компоненты с нечетными номерами на 1. дополнительный массив не использовать. выведите на экран измененное содержимое файла.

Answer 1

Const
  n = 20;

var
  i, e: integer;
  f: file of integer;

begin
  Randomize;
  Assign(f, 'output.txt');
  Rewrite(f);
  writeln('Исходный файл');
  for i := 1 to n do
  begin
    e := Random(20) - 10;
    write(f, e);
    write(e:4)
  end;
  Close(f);
  Reset(f);
  writeln;
  writeln('Обработанный файл');
  i := 0;
  while not Eof(f) do
  begin
    read(f, e);
    i := i + 1;
    if i mod 2 <> 0 then begin
      seek(f, i-1);
      write(f, 1);
      seek(f, i-1);
      read(f, e)
    end;
    write(e:4)
  end
end.

Тестовое решение:

Исходный файл
  -6   4  -3  -7   6  -1  -4   8  -7  -5   5 -10   5  -1  -9  -7  -5  -1   9   8
Обработанный файл
   1   4   1  -7   1  -1   1   8   1  -5   1 -10   1  -1   1  -7   1  -1   1   8