файлы

[Гарри]

В файле f записаны целые числа. Написать программу, которая в файл g записывает положительные числа, а файл h - отрицательные.

[type_Oleg]

Признайся боярин, ты не робот ?

[Stilet]

Признайся боярин, ты не робот ?

Студенты во время сессии способны медведя-шатуна завалить, переубедив в его несостоятельности )))

В файле f записаны целые числа. Написать программу, которая в файл g записывает положительные числа, а файл h - отрицательные.

var f,g,h:file of integer; i:integer;
begin
 assign(f,'f'); reset(f); assign(g,'g'); rewrite(g); assign(h,'h'); rewrite(h); 
 while not eof(f) do begin
  read(f,i); if i<0 then write(g,i) else write(h,i);
 end; close(f); close(g); Close(h);
end.

Годится?

P.S. Передавай привет Джинни )