Question

Помогите пожалуйста с Pascal!!
Организуйте заполнение типизированного файла случайными
целыми числами из интервала [-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

Answer 2

Спасибо:-)