Записать в конец файла среднее арифметическое его чисел - Turbo Pascal

Формулировка задачи:

Дан текстовый файл, с последовательностью вещественных чисел. Записать в конец фала среднее арифметическое Добавлено через 1 час 9 минут помогите решить

Код к задаче: «Записать в конец файла среднее арифметическое его чисел - Turbo Pascal»

textual
uses crt;
var f:text;
    nf:string;
    a,s:real;
    k:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);{вводим без расширения, например input}
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
s:=0;
k:=0;
while not eof(f) do
 begin
  read(f,a);
  k:=k+1;
  s:=s+a
 end;
close(f);
s:=s/k;
append(f);
writeln(f);
write(f,'Sr.arifm.=',s:0:2);
close(f);
write('Результат дописан в файл ',nf);
readln
end.

8   голосов, оценка 4.375 из 5


СОХРАНИТЬ ССЫЛКУ