Ввести файл. Найти среднее арифметическое среди значений элементов файла, принадлежащих интервалу [-5; 5]. Если среднее положительно, записать его на последнее место в файле. На печать вывести файл

program zz1;

var a, b, c:integer; / / задаем переменные целого типа

f1:text; / / задаем переменную для текстового файла

d:string; / / задаем переменную строкового типа

r:real; / / задаем переменную не целого типа

begin

assign (f1,'file1. txt');

reset (f1);

while not eof (f1) do

begin

read (f1, a);

if (a > = - 5) and (a < 5) then begin c:=c + a; b:=b + 1; end;

end;

close (f1);

append (f1);

r:=c/b;

d:=FloatToStr (r);

if r > 0 then write (f1, ' ', d);

close (f1);

assign (f1,'file1. txt');

reset (f1);

while not eof (f1) do

begin

read (f1, d);

write (d);

end;

close (f1);

end.