Найти среднее арифметическое среди значений элементов файла, попадающих в интервал от A до В

marijane

Ввести файл F. Найти среднее арифметическое среди значений элементов файла, попадающих в интервал от A до В (вводятся с клавиатуры). Если среднее положительно, то заменить им нулевую компоненту и дописать в конец файла. Файл отпечатать.
program Files_0;
var  
     F: file of integer;
     Sr,buf,A,B:integer;
     
begin
  Assign(F,'F.dat');
  rewrite(F);
  writeln('введите первую компоненту файла');
  readLn(buf);
  while buf>A and buf<B do
    begin
      write(F,buf);
      writeln('введите следующую компоненту:');
      readln(buf);
    end;
  Sr:=0;
  k:=0;
  reset(F);
  while not EOF(F) do
    begin
      read(F,buf);
      S:=S+buf;
      k:=k+1;
    end;
    if k>0 then
    Sr:=S/k;
    writeln(Sr);
    end;
  
    else
    writeln ('в файле нет положительных компонент');
    else
    close (F);
    Reset(F);
    write (F,S);
    close (F);
    Reset (F);
    l:=filesize (F);
    SEEK (F,l);
    write (F,k);
    close (F)
1 ответ

marijane

программа составлена из чужих кусков и отношения к условию не имеет!!!!!!