Question

Для файла целых чисел des.dat перепишите положительные числа в один дополнительный файл, а отрицательные – в другой. pascal abc

Answer 1

Var
  f,fo,fp:file of integer;
  i,n:integer;
begin
  { создать файл }
  randomize;
  assign(f,'des.dat');
  rewrite(f);
  for i:=1 to 20 do
  begin
    n:=random(101)-50;
    Write(n,' ');
    Write(f,n)
  end;
  close(f);
  Writeln;
  { работа с файлами }
  reset(f);
  assign(fo,'deso.dat');
  rewrite(fo);
  assign(fp,'desp.dat');
  rewrite(fp);
  while not eof(f) do
  begin
    Read(f,n);
    if n>0 then Write(fp,n)
    else if n<0 then Write(fo,n)
  end;
  close(f);
  close(fo);
  close(fp)
end.