Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Var t,t1:text; b:array[1..20] of integer; i,j:integer;
begin
assign(t,G:201512input.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:201512output.txt);
assign(t1,G:201512output1.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.