488. Дан файл f, компоненты которого являются целыми числами. Никакая из компонентов файла не равна нулю. Файл f содержит столько же отрицательных чисел, сколько и положительных. Используя вспомогательный файл h, переписать компоненты файла f в файл g так, чтобы в файле g:
в) числа шли в следующем порядке: Два положительных, два отрицательных, два положительных, два отрицательных и т.д. (предполагается, что число компонентов в файле f делится на 4).
[HTML]program Project488;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
i,e,k:integer;
f,g,h:file of integer ;
begin
assignfile(f,'f.txt');
assignfile(g,'g.txt');
assignfile(h,'h.txt');
reset(f); rewrite(g); rewrite(h);
i:=0; e:=2;
while not eof(f) do
begin
read(f,k);
if (k>0) and (i<2) and (e=2) then
begin
write(g,k);
inc(i);
end
else
if k<0 then
begin
write(g,k);
inc(e)
end
else write(h,k);
end;
closefile(g); closefile(f); closefile(f);
reset(g); ; reset(h);
while not eof(h) do
begin
read(h,k);
if (k>0) and (i<2) and (e=2) then
begin
write(g,k);
inc(i);
end
else
if k<0 then write(g,k) else write(h,k);
end;
readln;
end.
[/HTML]