тема: "Файлы"

[Настена95]

дан массив из двадцати вещественных чисел, записать все числа массива в типизированный файл в исходном порядке.

[Serge_Bliznykov]

const A : array[1..20] of real =
(1.5, -33.57, 5.2, 7.0, 5.24, 2.10, 5.6, 7.5, 9.0, 10.2,
 2.2, 4.5, 7.3, 8.0, 7.2, 999.10, 29.5, 18.2, 7.19, 8.95);
var i : integer;
 f : file of real;
begin
  Assign(f, 'MyFile.bin');
  Rewrite(f);
  for i:=Low(A) to High(A) do Write(f,A[i]);
  Close(f);
end;