Дан файл f компоненты которого являются действительными числами, найти сумму наибольшего и наименьшего из значений компонент. паскаль

Var   f: file of real;   a, amin, amax: real; begin   assign(f, 'input.dat');   reset(f);   amin : = 1e-20;   amax : = 1e20;   while not eof(f) do   begin       read(f, a);       if amin > a then amin : = a;       if amax < a then amax : = a   end;   close(f);   writeln('сумма минимального и максимального элементов равна ', amin + amax) end.

Вданной программе при запуске надо ввести одно число. после чего выводится 10 чисел от 9 до заданного не включительно. например, при вводе числа 20, выведутся числа от 10 до 19. #include < iostream> #include < time.h> using namespace std; int main ()  {     srand(time(null));     int a;     cin > > a;     for (int i=0; i< 10; i++) {           cout < < rand() % (a-10) +10;     }     return 0; }

Вгодном гигабайте 1 073 741 824 байт т. е. * 8 бит. 234 бита/8 = 30 байт, т. е. до гигабайта ещё как до альдебарана! =)) с 233 сообщениями по 1 биту, если вы это имели ввиду, дело обстоит сложнее, т. к. это смотря где они лежат (если каждое в отдельном файле, то минимальный размер одного файла на диске зависит от размера кластера в таблице разделов, а это от 256 байт до нескольких килобайт, т. е. сперва надо выяснить характеристики носителя информации, где они будут лежать и умножить потом на размер кластера).