Работа с составными типами данных в системе Turbo Pascal. Батхин А.Б - 30 стр.

                assign (a,"A:PROBA.DTA");
                assign (b,"A:PROBA.DTA");
                assign (c,"A:PROBA.DTA");


             Используя программу creat, создайте массив случайных чисел. Задайте несколько
вариантов параметров (диапазон и количество чисел) и создайте несколько файлов. Об-
работайте файл в соответствии с заданием.
program creat;
type tma=0..10000;
var KOT:file of tma;           i,koln:integer;    t,ga,gb :tma;   fname:string[12];
begin
   write('Введите количество генерируемых чисел : ');readln(koln); writeln('Введите диапа-
зон для генерируемых чисел : '); write(' Левая граница (>=0) -> ');readln(ga);
   write(' Правая граница (<=10000) -> ');readln(gb);
   write('Имя файла для записи чисел : ');read(fname);writeln(' .');
   assign(KOT,fname);
   rewrite(KOT);randomize;
   for i:=1 to koln do
         begin
              t:=random(gb-ga)+ga;
              write(KOT,t);
              if i mod 10 = 0 then write(' ',i,#$d);
         end;
   close(KOT);
   writeln(' ',i);writeln('Файл сформирован.');
end.
Варианты заданий
1. Среди элементов найти два самых маленьких элемента.
2. Найти среднее арифметическое элементов.
3. Среди элементов найти два самых больших элемента.
4. Построить гистограмму частот попадания элементов в интервалы 1..1000,
       1001..2000,..., 9001..10000. Сделать шаг меньше.
5. Найти среднее арифметическое для максимального и минимального элементов фай-
       ла.
6. Для чисел, находящихся в диапазоне от a до b (0 < a < b < < 10000), найти сумму.
7. Среди чисел, стоящих на 3, 6, 9,..., 3k,... местах, найти максимальное.
8. Найти среднее геометрическое элементов.
9. Среди чисел, кратных 3-м найти минимальное.
10. Найти среднее арифметическое для чисел, стоящих с N по M место в файле.
11. Проверить, найдется ли в файле десять чисел, кратных 118.