Организовать файл типа real

[сона]

Организовать файл типа real,количество элементов заранее неизвестно.Проверить этот файл с помощью вывода на экран,затем найти среднее арифметическое первого и последнего элемента этого файля.

[Serge_Bliznykov]

все просто. что именно не получается?

и что означает "Проверить этот файл с помощью вывода на экран" ?! Что проверить то?!

примерный набросок решения:

var i, n : integer;
  r, r1, r2 : real;
  f : file of real;
begin
  WriteLn('Создание файла. Сколько элементов будет в файле:');
  ReadLn(n);
  Assign(f, 'realfile.dat');
  Rewrite(f);
  for i:=1 to n do begin
    Write('Введите ',i,'-й элемент : ');
    Readln(r);
    Write(f, r);
  end;
  Close(f);
  WriteLn('Создание файла завершено.');

  {открыть файл на чтение}
  Reset(f);

  r2 := 0;
  {вывести содержимое файла на экран}
  Read(f, r1);
  WriteLn(r1:1:5);
  while not eof(f) do begin
     Read(f, r2);
     WriteLn(r2);
  end;
  Close(f); {закроем файл}

  {рассчитаем и выведем среднее арифметическое первого и последнего элементов файла}
   r := (r1 + r2)
  WriteLn('среднее арифметическое = ', r:1:5)
  Readln
end.

[сона]

если честно саа не знаю что это значит.пасибо вам огромное))