Вычисление суммы элементов файла. записать в двоичный файл n действительных чисел; n вводится пользователем. вычислить сумму элементов файла и вывести на экран. примечание: файл, в который записывается результат, называется output.dat для двоичных файлов.

//Pascal ABC.NET 3.1 сборка 1219

Var
 f:file;
 n,i:integer;
 r,s:real;
begin
randomize;
readln(n);
assign(f,'OUTPUT.DAT');
 rewrite(f);
 for i:=1 to n do
  begin
  r:=random;
   if i<>n then write(f,floattostr(r),' ') else write(f,floattostr(r));
  s:=s+r;
  end;
close(f);
writeln(s);
end.

Пример ввода:
4
Пример вывода:
1.10933282929907
Содержимое OUTPUT.DAT представлено во вложении.