Работа с файлом в (Delphi/pascal)

[Mashul'ka]

Дан файл вещественных чисел. Найти среднее арифметическое его элементов.

[Sazary]

Вы не знаете как находится среднее арифметическое?
Или что?

[Mashul'ka]

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

Вы не знаете как находится среднее арифметическое?
Или что?

Знаю.Проблема в:Как увеличить счетчик количества элементов,счетчик увеличения суммы на элемент?(пробовала (Inc(Kol) и Inc(Summa/Element) )
Какой должен быть тип у переменных?

[Stilet]

Inc(Kol)

Это пройдет

Inc(Summa/Element)

это не пройдет

Р.S. вообще-то операцию + еще не отменили...

[IT-man]

Тип: у числовых переменных real. У файла file of real.

[Serge_Bliznykov]

ну, как то так:

var f : file of real;
     Element : real;
     Sum : double;
     Cnt   : integer;
begin
   Sum := 0;
   Cnt := 0;
   Assign(f,'MYDATA.bin'); {для Delphi надо AssignFile(...)} 
   Reset(f);
   while Not Eof(f) do begin
      Inc(Cnt);
      Read(f,Element);
      Sum := Sum + Element; 
   end;
   if Cnt = 0 then WriteLn('Нет элементов в файле. Значит и среднего тоже нет!')
   else WriteLn('Среднеарифметическое = ',(Sum/Cnt):7:4);
end.