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

138

392

Посмотреть ответы 2

Ответы на вопрос:

спирина1

Информатика

4,6(24 оценок)

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.