ПАСКАЛЬ: РОБОТА З ФАЙЛАМИ

Нехай числа записано в файлі цілих з ім'ям nums.dat, а числа, менші за середнє, переписуються в файл littls.dat. Наведені дії задаються програмою

program numbers;

var f , g : file of integer;

v : integer; a : real;

n : integer;

begin

assign ( f, 'nums.dat' );

{1}reset ( f );

read ( f, v ); {читання першого елемента без перевірки !}

a:=v; n := 1;

while not eof ( f ) do

begin {з виклику eof(f) повернулося false,}

{тому можна читати доступний елемент}

read ( f, v );

a := a + v; n := n + 1

end;

{з виклику eof(f) повернулося true}

a := a/n;

{2}reset ( f );

assign(g, 'littls.dat'); rewrite(g);

while not eof ( f ) do

begin

read ( f, v ); if v < a then write(g, v )

end;

close ( f ); close(g);