В третий файл записать сначала четные элементы первого файла, а затем — нечетные - Pascal - Ответ 8936838

const fn: array [1..3] of string = ('1.dat', '2.dat', '3.dat');
var f, g: file of integer;
    i, j, n, x: integer;
begin
  randomize;
  assign(g, fn[3]);
  rewrite(g);
  for i := 1 to 2 do
    begin
      assign(f, fn[i]);
      rewrite(f);
      repeat
        write('Число компонентов ', i, ' файла? ');
        readln(n)
      until n > 0;
      writeln('Содержимое ', i, ' файла:');
      for j := 1 to n do
        begin
          x := -random(281) + 140;
          write(x:5);
          write(f, x);
          if odd(i) = not odd(x) then write(g, x)
        end;
      writeln;
      close(f)
    end;
  writeln('Содержимое 3 файла:');
  if filesize(g) = 0
    then write('<Файл пуст>')
    else begin
      reset(g);
      for i := 1 to filesize(g) do
        begin
          read(g, x);
          write(x:5)
        end
    end;
  close(g);
  readln
end.