Расщепление файла. из текстового файла, содержащего вещественные числа, сформировать два других, в один из которых поместить значения большие, чем число, введенное с клавиатуры, в другой –меньшие. определить и вывести на экран количество элементов в каждом из получившихся файлов. примечание: результат работы с данными вывести на экран и в новые файлы. файл с входными данными имеет название input.txt для текстовых файлов. файлы, в который записывается результат, называется output1.txt и output2.txt для текстовых файлов.

//pascal abc.net 3.1 сборка 1219 var   f: text;   c,n1,n2,i: integer;   ar1,ar2: array of real;   r: real; begin readln(c); assign(f,'input.txt'); reset(f);   while not(eof(f)) do   begin     read(f,r);     if r> c then       begin       inc(n1);       setlength(ar1,n1);       ar1[n1-1]: =r;     end;     if r< c then     begin       inc(n2);       setlength(ar2,n2);       ar2[n2-1]: =r;     end;   end; close(f); assign(f,'output1.txt'); rewrite(f);   for i: =0 to n1-1 do   if i< > n1-1 then write(f,ar1[i],' ') else write(f,ar1[i]); close(f); writeln('count of values in output1.txt: ',n1); assign(f,'output2.txt'); rewrite(f);   for i: =0 to n2-1 do   if i< > n2-1 then write(f,ar2[i],' ') else write(f,ar2[i]); close(f); writeln('count of values in output2.txt: ',n2); end. пример ввода: 2 содержимое  input.txt: 1.5 1.75 2 2.25 2.5содержимое output1.txt: 2.25 2.5содержимое output2.txt: 1.5 1.75пример вывода: count of values in output1.txt: 2count of values in output2.txt: 2

mcmxcv = 1995

m = 1000

cm = -100 + 1000 = 900

xc = -10 + 100 = 90

v = 5

1000 + 900 + 90 + 5 = 1995