Файлы(Паскаль)!

[Базиля]

Program Zadacha;
Var
a:array[1..100] of real;
f:File of real;
min:Real;
i,n:integer;
Begin
Assign (f,'data.dat');
Rewrite(f);
writeln('введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
read(a[i]);
write(f,a[i]);
end;
close(f);
reset(f);
i:=1;
min:=a[i];
while not eof(f) do
begin
Read (f,a[i]);
If a[i]<min then min:=a[i];
inc(i);
end;
close(f);
WriteLn ('минимум: ',min);
ReadLn;
end.

[kiborrgg]

Да, и не забудь числами заполнить

[Ybn2]

const n=6;
var F:file of real;
    i:integer;
    n:real;
begin
randomize;
assign(F,'data.dat');
Rewrite(F);
for i:=1 to n do
begin
n:=random(10);
write(f,m);
end;
Close (f);
WriteLn ('ФАЙЛ СОЗДАН'); 
readln;
end.

Напиши это программу, она тебе создаст файл data.dat

[Cas01]

Код:

Program Zadacha;
Var
a:array[1..100] of real;
f:File of real;
min:Real;
i,n:integer;
Begin
Assign (f,'data.dat');
Rewrite(f);
writeln('введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
read(a[i]);
write(f,a[i]);
end;
close(f);
reset(f);
i:=1;
min:=a[i];
while not eof(f) do
begin
Read (f,a[i]);
If a[i]<min then min:=a[i];
inc(i);
end;
close(f);
WriteLn ('минимум: ',min);
ReadLn;
end.



прога работает,только мне нужно чтобы массив действительных чисел был записан в файл F!!!!!!!А я получается ввожу эти числа просто в паскале!

[kiborrgg]

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

Код:

Program Zadacha;
Var
a:array[1..100] of real;
f:File of real;
min:Real;
i,n:integer;
Begin
Assign (f,'data.dat');
Rewrite(f);
writeln('введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
read(a[i]);
write(f,a[i]);
end;
close(f);
reset(f);
i:=1;
min:=a[i];
while not eof(f) do
begin
Read (f,a[i]);
If a[i]<min then min:=a[i];
inc(i);
end;
close(f);
WriteLn ('минимум: ',min);
ReadLn;
end.



прога работает,только мне нужно чтобы массив действительных чисел был записан в файл F!!!!!!!А я получается ввожу эти числа просто в паскале!

Эта программа и записывает в файл...

[k0tone]

Товарищи программисты! Почему при записи массива в файл Data.dat, после открытия его блокнотом я вижу только это:
,NUL NUL NUL NUL NUL , NUL NUL NUL NUL NUL
Вопрос так и должно быть? Если да, то можно это как-то перевести в человеческие цифры?
P.S. Извиняюсь что не по теме...