Технический форум - Cоздать файл целых чисел

Цитата:

Сообщение от Katyusha123 (Сообщение 540451)

создать файл целых чисел. В другой файл переписать подряд отрицательные элементы первого файла и. подсчитать их количество. Первоначальный и полученный файлы выдать на печать.
Тема "файлы в паскале" помогите пожалуйста))) а то я себя полным чайником сейчас чувствую((

Пожалуйста (имена и адреса файлов задайте свои):

Код:

VAR

 f_in, f_out: File of Integer;

 i,N,Nn,vl:integer;



BEGIN

 N:=40;

 Randomize;

 Assign(f_in,'D:\Inp.dat');

 Rewrite(f_in);

 Nn:=0;

 for i:=1 to N do

  begin

   vl:=50-Random(100);

   Write(f_in, vl);

  end;

 Close(f_in);

 Reset(f_in);

 Assign(f_out,'D:\Out.dat');

 Rewrite(f_out);

 for i:=1 to N do

  begin

   Read(f_in,vl);

   If vl<0 then

    begin

     Inc(Nn);

     Write(f_out,vl);

    end;

  end;

 Close(f_out);

 Writeln('Input file contents: ');

 Reset(f_in);

 For i:=1 to N do

  begin

   Read(f_in,vl);

   Write(vl:4);

  end;

 Close(f_in);

 Writeln;

 Writeln('Number of negative elements is ',Nn);

 Writeln;

 Writeln('Output file contents: ');

 Reset(f_out);

 For i:=1 to Nn do

  begin

   Read(f_out,vl);

   Write(vl:4);

  end;

 Close(f_out);

 Readln

END.