Сорганизуйте заполнение типизированного файла случайными целыми числами из интервала [-10; 10]. выведите содержимое файла на экран. замените компоненты с нечетными номерами на 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

Not(x) or not(x or y) or not(y and not(x and y)) not (x) or not (x or y) or not(y) or not(x and y) not (x) or (not(x) and not(y)) or (not(y) or not(x and y)) not (x) or (not(x) and not(y)) or (not(y) or not(x) or not(y)) not(y) or not(x)