Иллюстрированный самоучитель по Tirbo Pascal


Массивы - часть 2


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

Пример 2.9

Program Average;

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

const

N = 1000; 

MAX_VALUE = 100+1; {Диапазон значений случайных чисел} 

var

m : array [1..N] of Integer; {Массив чисел}

i : Integer; {Индекс массива}

max, min : Integer; {Максимальное и минимальное число}

s : Real; {Сумма чисел}

begin

{Наполняем массив случайными числами:} 

for i := 1 to N do

m[i] := random(MAX_VALUE); {Задаем начальные значения переменных:}

s := 0;

max : = m [ 1 ] ;

min : = m [ 1 ] ;

{Цикл вычисления суммы всех случайных чисел и поиска минимального и максимального:}

for i := 1 to N do 

begin

s : = s + m [ i ] ;

if m[i] < min then

min := m[i]

else if m[i] > max then

max := m[i] 

end;

{Вычисляем среднее значение и печатаем результат:}

WriteLn('MMH = ',min,' Макс = ', max, ' Среднее = ',s/N) 

end.

Для создания массива используется встроенная функция RANDOM (MAX) , которая возвращает случайное целое число, равномерно распределенное в диапазоне от 0 до МАХ-1 (МАХ- параметр обращения).

 




- Начало -  - Назад -  - Вперед -