Файл f заполнить 300 случайными действительными числами. Найти последнюю компоненту файла f. Буду очень благодарен за помощь.
Немного сделал:
var
f: file of Real;
i: integer;
begin
Randomize;
Assign(f, 'file.bin');
Rewrite(f);
for i := 1 to 300 do
Write(f, Random(1000) * 0.01);
Close(f);
end.