числовой файл

[Arsball]

Доброго времени суток!
Будьте добры помогите составить программу


Числовой файл. Нужно найти среднее арифметическое всех элементов.
Заменить им средний элемент файла, если нечётное количество, иначе добавить в конец, если чётное.

[Serge_Bliznykov]

язык программирования? наработки? проблемы?

[Arsball]

Сообщение от Serge_Bliznykov

язык программирования? наработки? проблемы?

Паскаль.

type 
tstr=string[80]; 
tfile=file of tstr; 
 
procedure vvod(var a:tfile;i:integer); 
var j:integer;s:tstr; 
begin 
for j:=1 to i do begin 
writeln('Введите ',j,' строку'); 
readln(s); 
write(a,s); 
end; 
end; 
procedure vivod(var a:tfile); 
var j:integer;s:tstr; 
begin 
seek(a,0); 
j:=0; 
while not eof(a) do begin 
seek(a,j); 
read(a,s); 
writeln(j+1,':',s); 
inc(j); 
end; 
end;

Сообщение от Serge_Bliznykov

язык программирования? наработки? проблемы?

Надеюсь проблемы заметны. Мне бы очень польстило, если бы в программе были комментарии

[Arsball]

Сообщение от Serge_Bliznykov

язык программирования? наработки? проблемы?

Спасибо за отзывчивость

[taras-proger]

Здесь бинарник не нужен в принципе, а нужен текстовый файл.

[Serge_Bliznykov]

Arsball, извините, проглядел ваш ответ!

значит так.
1)

Числовой файл.

это означает file of <числовой_тип>
т.к. понадобится писать среднее арифметическое, то рискну предположить, что компоненты - вещественные числа.
т.е.

var f: file of real;

теперь, как найти среднее арифметическое:

var sum, a : real;
  n : integer;
....
begin
...

  Reset(f);
  if FileSize(f)=0 then WriteLn('Файл пуст, делать тут нечего')
  else begin
     sum:=0;
     while not eof(f) do begin
       Read(f, a);
       sum := sum+a;
     end;
     n:=FileSize(f); {количество компонент в файле}
     sum := sum / n;
     if odd(n) 
         then begin {нечётное число компонент, заменяем средний элемент}
                  seek(f, (n div 2));
                  write(f, sum)
                end
         else begin {четное число компонент, тогда дописываем в конец}
           Seek(f, n);
           Write(f, sum)
         end;
   close(f);
end;

примерно так.
код не проверял. Но, если надо, проверю/отвечу на вопросы.

Успехов!