Учебная программа average

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

procedure TfmExample.bbRunClick(Sender: TObject);

{Программа создает массив из N случайных целых чисел, равномерно распределенных в диапазоне от 0 до MAX_VALUE-1, подсчитывает среднее арифметическое этих чисел, а также минимальное и максимальное из них.} const

N = 1000; // Количество элементов массива
MAX_VALUE = 100+1;// Диапазон значений случайных чисел var
m: array [1..N] of Integer; // Массив чисел
i: Integer;// Индекс массива
max,min: Integer; // Максимальное и минимальное число
sum: Real;// Сумма чисел
begin
// Наполняем массив случайными числами:
for i:= 1 to N do
m[i]:= Random(MAX_VALUE);
// Задаем начальные значения переменных:
sum: = m [ 1 ];
max: = m [ 1 ];
min:= m[1];
// Цикл вычисления суммы всех случайных чисел и поиска
// минимального и максимального:
for i:= 2 to N do
begin
sum:= sum + m[i];
if m[i] < min then
min:= m[i]
else if m[i] > max then
max:= m[i] end;
// Вычисляем среднее значение и выводим результат:
IbOutput.Caption:= 'Мин = '+IntToStr(min)+' Макс = '+ IntToStr(max)+' Среднее = '+FloatToStr(sum/N);
end;

Для создания массива используется встроенная функция Ran-dom(Max), которая возвращает случайное целое число, равномерно распределенное в диапазоне от 0 до мах-1 (мах - параметр обращения).