В текством файле содержаться целые числа, необходимо вычислить их среднее арифметическое. Вывод результатлв продублируйте в другой файл.
я решила сначала заполнить файл f, в котором содержаться элементы, среднее арифметическое надо посчитать... Но он почему-то не заполняет выдает ошибку...
Program Sredneearif;
Uses crt;
Var
Kol,Elem,Summ:integer;
f : file of integer;
g : file of real;
SrAr : real;
Begin
Clrscr;
assign(f,'c:\file.txt');
assign(g,'c:\file1.txt');
reset(f);
rewrite(g);
rewrite(f);
write(f,elem);
Summ :=0;
while not eof(f) do
begin
read(f,Elem);
Inc(Kol);
Inc(Summ,Elem);
end;
SrAr := Summ/Kol;
write('Sr.arif faila ravno ',SrAr:5:2); write(g,SrAr);
close(f); close(g);
readln;
End.