Дан файл, компоненты которого являются целыми числами. Получить два новых файла,...

Question

Дан файл, компоненты которого являются целыми числами. Получить два новых файла, состоящих только из положительных и только отрицательных

Answer 1

Var t,t1:text; b:array[1..20] of integer; i,j:integer;
begin
assign(t,'G:\2015\12\input.txt');reset(t);
while not eof(t) do begin
i:= i + 1;readln(t,b[i]);
writeln(b[i]); end;close(t);
assign(t,'G:\2015\12\output.txt');
assign(t1,'G:\2015\12\output1.txt');
Rewrite(t);Rewrite(t1);
for j:=1 to i do
if b[j] > 0 then
writeln(t,b[j])
else
writeln(t1,b[j]);
close(t);close(t1);end.